(((-I)*Csc[theta]*(((-1/2*I)*r*Sin[theta]*(1 - 7.500000000000001*^-9*
          (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
              0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
           (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^
                (4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
              (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
              0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                 E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
              (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
           (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                 (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
             (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(
                0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
             (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
              (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
               (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
               (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 
             0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^
                 4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                 r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
          (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
             ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
              E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
              r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^
                (4.*r^2)))/r^4)*(-1 + 3*Sin[theta]^2))*
        ((-1.0000000000000001*^-16*
           ((3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
                   E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
                    (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 
                     2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 
                     2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                   (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
                    (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
               Sin[theta]^2)/4 + 3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)))/r^5)*(1 - 3*Sin[theta]^2))^2)/
          (-2 + 3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
              (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
              (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^4)*(-1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r)*Sin[theta]^2)^2 - 
         (1.*^-8*(-5.*^-9*(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 
                       0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
                (-1 + 3*Cos[2*theta]) + (3*((-21*(0.25/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
                  (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                  (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                       ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                  (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                         0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                       E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                    (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                     E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                    0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                    8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                       E^(4.*r^2)))/r)*Sin[theta]^2)/2)^2 + 
            (-2 + 3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                    E^(4.*r^2)))/r^4)*(-1 + 3*Cos[2*theta]) + 
              1.5000000000000002*^-8*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
             ((3*((21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^5 - (21*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^4 + (9*(0. - 2./E^(4.*r^2) + 
                    0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                       E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
                      (0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/
                     E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 - 
                 (2*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                         0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                       E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                    (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                     E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                    0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                    8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                       E^(4.*r^2))))/r^2 + (0. + 32./E^(4.*r^2) + 
                   0.25*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*(0. - 8.*r)) - 8.*(-4./E^(4.*r^2) + 
                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                      E^(4.*r^2)) - 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 1.*(128./E^(4.*r^2) - 8.*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) - 8.*(-4./E^(4.*r^2) + ((0. - 8.*r)*
                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2)) + 
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                    (0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 
                   8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*(0. + 0.25*r)) - 8.*
                    (0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                        E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
                       (0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r)) + 
                   ((-8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 
                      4.*(0. - 8.*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*(0. - 8.*r) + ((-4.*(0. - 8.*r) - 
                      8.*(0.25*(0. - 8.*r) - 2.*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r) + 
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                    (0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. - 
                       8.*r) - 2.*r) + (128./E^(4.*r^2) - 8.*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                   0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                         3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (32.*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                      E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*r - 
                   8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 0.5*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r) + 0.125*r^2*(-5120./E^(4.*r^2) + 
                     128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                     (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - 
                     (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
                      E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) + 
                   1.*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)) + 0.5*r*(0. + (384.*(0. - 8.*r))/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/
                      E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                     (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*
                      (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
                Sin[theta]^2)/4 + 3*((3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^5 - (3*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^4 + (0. - 2./E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
                    (0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/
                   E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/
                   E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3)*(1 - 
                3*Sin[theta]^2))))/(-2 + 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r)*Sin[theta]^2)^2))/Sqrt[2] + 
      ((I/2)*r*Sin[theta]*(1 - 7.500000000000001*^-9*
          (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
              0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
           (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^
                (4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
              (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
              0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                 E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
              (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
           (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                 (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
             (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(
                0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
             (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
              (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
               (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
               (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 
             0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^
                 4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                 r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
          (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
             ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
              E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
              r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^
                (4.*r^2)))/r^4)*(-1 + 3*Sin[theta]^2))*
        ((5.*^-9*(7.500000000000001*^-9*(-13.125/(E^(4.*r^2)*r^4) - 
              (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
              (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
              (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 
                8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                 E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                  (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
                  (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                   E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
             ((3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                 (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)))/r))/4 + 3*((-3*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(-3 + 
                Csc[theta]^2)) + 3.0000000000000004*^-8*
             (-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 + 
              (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^5)*(-3 + Csc[theta]^2)*((3*((-21*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
                 (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                 (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)))/r))/4 + 3*((-3*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(-3 + 
                Csc[theta]^2)) - (7.500000000000001*^-9*(2.625/(E^(4.*r^2)*
                  r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r) - Csc[theta]^2 + 
              3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                    E^(4.*r^2)))/r^4)*(-3 + Csc[theta]^2))*
             ((3*((105*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^5 - (48*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^4 - (105*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + 
                 (13*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 - 
                 (3*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                         0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                       E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                    (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                     E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                    0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                    8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                       E^(4.*r^2))))/r^2 + (0. + 32./E^(4.*r^2) + 
                   0.25*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*(0. - 8.*r)) - 8.*(-4./E^(4.*r^2) + 
                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                      E^(4.*r^2)) - 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 1.*(128./E^(4.*r^2) - 8.*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) - 8.*(-4./E^(4.*r^2) + ((0. - 8.*r)*
                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2)) + 
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                    (0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 
                   8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*(0. + 0.25*r)) - 8.*
                    (0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                        E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
                       (0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r)) + 
                   ((-8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 
                      4.*(0. - 8.*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*(0. - 8.*r) + ((-4.*(0. - 8.*r) - 
                      8.*(0.25*(0. - 8.*r) - 2.*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r) + 
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                    (0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. - 
                       8.*r) - 2.*r) + (128./E^(4.*r^2) - 8.*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                   0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                         3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (32.*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                      E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*r - 
                   8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 0.5*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r) + 0.125*r^2*(-5120./E^(4.*r^2) + 
                     128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                     (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - 
                     (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
                      E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) + 
                   1.*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)) + 0.5*r*(0. + (384.*(0. - 8.*r))/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/
                      E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                     (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*
                      (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r))/4 + 
              3*((15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^5 - (6*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^4 - (15*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3)*(-3 + 
                Csc[theta]^2))))/(7.500000000000001*^-9*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r) - Csc[theta]^2 + 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-3 + Csc[theta]^2))^2 - 
         (5.*^-9*(-9.000000000000001*^-8*r*(-1.875/(E^(4.*r^2)*r^4) - 
              (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
              ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) + 
            1.5000000000000002*^-8*(2.625/(E^(4.*r^2)*r^3) + 
              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r) + 7.500000000000001*^-9*r*
             (-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
              (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 
                8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                 E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                  (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
                  (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                   E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r) - 
            2*Csc[theta]^2 + 3.0000000000000004*^-8*r*
             (-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 + 
              (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^5)*Csc[theta]^2 + 6.000000000000001*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-3 + Csc[theta]^2))*((3*((-21*(0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^4 + (9*((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
               (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 
                 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
                  E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - 
                   (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                      0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
                   (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
                  E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                    E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                    E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
                   (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                    E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
              Sin[theta]^2)/4 + 3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 + 
              (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^5)*(1 - 3*Sin[theta]^2)))/
          (r*(7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r) - Csc[theta]^2 + 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-3 + Csc[theta]^2))*(-2 + 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r)*Sin[theta]^2)) + 
         (5.*^-9*(-9.000000000000001*^-8*r*(-1.875/(E^(4.*r^2)*r^4) - 
              (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
              ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) + 
            1.5000000000000002*^-8*(2.625/(E^(4.*r^2)*r^3) + 
              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r) + 7.500000000000001*^-9*r*
             (-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
              (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 
                8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                 E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                  (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
                  (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                   E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r) - 
            2*Csc[theta]^2 + 3.0000000000000004*^-8*r*
             (-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 + 
              (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^5)*Csc[theta]^2 + 6.000000000000001*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-3 + Csc[theta]^2))*(-9.*^-8*(-0.75/(E^(4.*r^2)*r^3) - 
              (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
              ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - 
              (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^2)*Cos[theta]^2*Sin[theta]^2 - 
            (3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
              (1 + 3*Cos[2*theta])*(-1 + 3.0000000000000004*^-8*
                (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) - 
               7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2))/2))/
          (r*(7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r) - Csc[theta]^2 + 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-3 + Csc[theta]^2))*(2 - 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + 
               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
               (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
                r^4)^2*(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(2.625/(E^(4.*r^2)*
                  r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
               Sin[theta]^2) - 4.5*^-16*(-0.75/(E^(4.*r^2)*r^3) - 
               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
             Sin[2*theta]^2)) + (1.5000000000000002*^-8*Cos[theta]*
           (-3.0000000000000004*^-8*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 + 
              (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^5)*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^4)*(1 + 3*Cos[2*theta]) + 
            ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - 
              (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^2)*(2 + 3.0000000000000004*^-8*(
                0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])))*(1.5000000000000002*^-8*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r)*Cos[theta] - Cot[theta]*Csc[theta] + 
            3*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-6.000000000000001*^-8*Cos[theta] + 1.*^-8*Cot[theta]*Csc[
                theta])))/(r*(7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r) - Csc[theta]^2 + 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-3 + Csc[theta]^2))*(-2 + 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + 
               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
               (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
                r^4)^2*(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r)*Sin[theta]^2 - 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(2.625/(E^(4.*r^2)*
                  r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
               Sin[theta]^2) + 4.5*^-16*(-0.75/(E^(4.*r^2)*r^3) - 
               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
             Sin[2*theta]^2))))/Sqrt[2]))/(Sqrt[2]*r) + 
   (-1/2*(-3.0000000000000004*^-8*r*(-0.75/(E^(4.*r^2)*r^3) - 
          (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
             (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
               (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
          ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
            ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
            0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
            (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
            0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
             r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
              E^(4.*r^2)))/r^4)*Cos[theta]*Sin[theta]*
         ((1.5000000000000002*^-8*Cos[theta]*Sin[theta]*
            (((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - 
               (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 
                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^2)*(1 - 3.0000000000000004*^-8*
                (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 
               7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
             1.*^-8*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)))/r^4)*(3*((-3*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
                 ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
               (3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                  (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                       ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                  (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                         0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                       E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                    (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                     E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                    0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                    8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                       E^(4.*r^2)))/r)*Sin[theta]^2)/4))*
            (r*(2 - 3.0000000000000004*^-8*r*(-1.875/(E^(4.*r^2)*r^4) - 
                 (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
               6.000000000000001*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)))/r^4) + 1.5000000000000002*^-8*
                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
               7.500000000000001*^-9*r*(-13.125/(E^(4.*r^2)*r^4) - 
                 (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                 (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)))/r)*Sin[theta]^2)*
              (-1 + 3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)) + 
             1.35*^-15*r*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
              (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2))/
           (r*(9.*^-16*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
              Sin[theta]^2 - (1 - 3.0000000000000004*^-8*
                (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 
               7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
              (1 + 3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)))/r^4)*(2 - 3*Sin[theta]^2)))*
            (2 - 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
              (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
              (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
              (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
              (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
                 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
              (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
              Sin[2*theta]^2)) + (1.5000000000000002*^-8*Cos[theta]*
            (-3.0000000000000004*^-8*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)))/r^5)*(-0.75/(E^(4.*r^2)*r^3) - 
               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
              (1 + 3*Cos[2*theta]) + ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 
                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^2)*(2 + 3.0000000000000004*^-8*
                (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
                (1 + 3*Cos[2*theta])))*Sin[theta]*
            (1.8*^-15*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2 + 
             (1 + 7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
              (2 - 3.0000000000000004*^-8*r*(-1.875/(E^(4.*r^2)*r^4) - 
                 (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) + 
               1.5000000000000002*^-8*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
               7.500000000000001*^-9*r*(-13.125/(E^(4.*r^2)*r^4) - 
                 (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                 (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)))/r)*Sin[theta]^2) - 3.0000000000000004*^-8*
              (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
              (4 - 3.0000000000000004*^-8*r*(-1.875/(E^(4.*r^2)*r^4) - 
                 (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) + 
               6.000000000000001*^-8*(-0.75/(E^(4.*r^2)*r^3) - 
                 (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*Cos[2*theta] + 
               3.0000000000000004*^-8*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
               7.500000000000001*^-9*r*(-13.125/(E^(4.*r^2)*r^4) - 
                 (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                 (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)))/r)*Sin[theta]^2) + 6.000000000000001*^-8*
              (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)))/r^4)*(Cos[2*theta] - 
               7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^4)))/
           ((-2 + 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
              (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
              (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r)*Sin[theta]^2 - 6.000000000000001*^-8*
              (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
              (1 - 3*Sin[theta]^2 + 3.7500000000000005*^-9*
                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
                 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
              (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
              Sin[2*theta]^2)*(-2 + 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + 
                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                    E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) - 
             1.5000000000000002*^-8*(2.625/(E^(4.*r^2)*r^3) + 
               (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
               (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r)*Sin[theta]^2 - 3.0000000000000004*^-8*
              (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
              (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
                 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
              (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
              Sin[2*theta]^2)) + (7.500000000000001*^-9*Sin[2*theta]*
            (-8.*^-8*(9.*^-8*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)))/r^4)^2 + (2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)/4 - 
               3.0000000000000004*^-8*(-0.75/(E^(4.*r^2)*r^3) - 
                  (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
                Cos[2*theta] + 3*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
                (-1 + 2.5*^-9*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(-1 + 
                   3*Cos[2*theta])))*(-9.*^-8*(-0.75/(E^(4.*r^2)*r^3) - 
                 (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
                ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Cos[theta]^2*
                Sin[theta]^2 - (3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
                     E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
                 (1 + 3*Cos[2*theta])*(-1 + 3.0000000000000004*^-8*
                   (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                       (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) - 
                  7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                    (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                        E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                       (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                         (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                       0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                       (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                       (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                    (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                          (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                         8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                        (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                       (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                       (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                        (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2))/
                2) + (3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
                (1 - 3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                   (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
                    r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)))/r^4) + ((2.625/(E^(4.*r^2)*r^3) + 
                    (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                        E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                       (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                         (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                       0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                       (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                       (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                    (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                          (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                         8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                        (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                       (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                       (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                        (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1.*^-8 - 
                    3.0000000000000004*^-8*Cos[2*theta]))/4) + 
               3.0000000000000004*^-8*(-0.75/(E^(4.*r^2)*r^3) - 
                 (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
                ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Cos[2*theta])*
              (-8 + 3.6*^-15*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) - 
               6.000000000000001*^-8*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
               3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)))/r^4)*(4 - 12*Cos[2*theta] - 
                 3.0000000000000004*^-8*(2.625/(E^(4.*r^2)*r^3) + 
                   (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
                   3*Cos[2*theta])*Sin[theta]^2) + 1.8*^-15*
                (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                     E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
                Sin[2*theta]^2)))/(2 - 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + 
                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                    E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) + 
             1.5000000000000002*^-8*(2.625/(E^(4.*r^2)*r^3) + 
               (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
               (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
              (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
              (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
                 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
              (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
              Sin[2*theta]^2)^2 - (3.0000000000000004*^-8*Cos[theta]*
            Sin[theta]*(((4.5000000000000006*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                  (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)))/r^4)*((-21*(0.25/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
                  (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                  (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                       ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                  (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                         0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                       E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                    (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                     E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                    0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                    8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                       E^(4.*r^2)))/r)*Sin[theta]^2 + 
                3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
                 (2 - 1.2000000000000002*^-7*(0.375/(E^(4.*r^2)*r^3) + 
                    (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
                     r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                        E^(4.*r^2)))/r^4) + 2.*^-8*(-0.75/(E^(4.*r^2)*r^3) - 
                    (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                        E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                       (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 
                  1.5000000000000002*^-8*(2.625/(E^(4.*r^2)*r^3) + 
                    (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                        E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                       (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                         (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                       0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                       (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                       (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                    (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                          (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                         8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                        (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                       (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                       (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                        (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
                ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(-2 + 
                  3.0000000000000004*^-8*r*(-1.875/(E^(4.*r^2)*r^4) - 
                    (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                        E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                       (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) + 
                  6.000000000000001*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                    (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
                     r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                        E^(4.*r^2)))/r^4) - 1.5000000000000002*^-8*
                   (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                       ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                     r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                       (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                         (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                       0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                       (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                       (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                    (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                          (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                         8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                        (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                       (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                       (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                        (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 
                  7.500000000000001*^-9*r*(-13.125/(E^(4.*r^2)*r^4) - 
                    (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                        E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        r^2))/r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                       (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                         (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                       0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                       (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
                       (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                    (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                         ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                       ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                        E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                         8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                       0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                         (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                    (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                          0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                         E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                        ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                      (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                      ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                       E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
                       E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
                       E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                       (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                       r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                         E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                         E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                      8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 
                      0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
                         E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                        (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
                1.*^-8*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
                  ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
                 ((-3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                         E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                        0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r^2))/r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                        (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                          (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                        0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                        (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
                        (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                     (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                          ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                        ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                         E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                        0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                          (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                     (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                          0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                          E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                         ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                       (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                       ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                        E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
                        E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 
                          2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.25*r) + 
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                       2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                       0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 
                       0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 
                         8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 
                          8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                        (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*
                          r)/E^(4.*r^2)))/r)*Sin[theta]^2)/2 + 
                  r*(3*((15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                          E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                         0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r^2))/r^5 - (6*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                         (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                          (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                         0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                         (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^2))/r^4 - (15*((0.25*r)/E^(4.*r^2) + 
                         (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + 
                      (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                          ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                        ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                         E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                        0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                          (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3) - 
                    (3*((105*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                          E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                          0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r^2))/r^5 - (48*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                          (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                          (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                          0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^2))/r^4 - (105*((0.25*r)/E^(4.*r^2) + 
                          (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + 
                       (13*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                          ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                          ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                          E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/
                          E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./
                          E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/
                          E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/
                        r^3 - (3*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 
                          8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 
                          8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                          ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                          (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
                          (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 
                          2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 
                          8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.25*r) + 
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                          2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                          0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 
                          0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 
                          8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*(192./
                          E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*
                          r)/E^(4.*r^2))))/r^2 + (0. + 32./E^(4.*r^2) + 
                         0.25*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)) - 
                         8.*(-4./E^(4.*r^2) + ((0.25*(0. - 8.*r) - 8.*(0. + 
                          0.25*r))*(0. - 8.*r))/E^(4.*r^2)) - 12.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         1.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 
                         8.*(-4./E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 
                          8.*r) - 2.*r))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                          (0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 
                         8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. + 0.25*r)) - 
                         8.*(0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 
                          0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                          8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r)*(0. + 0.25*r)) + ((-8.*(0.25*(0. - 8.*r) - 
                          8.*(0. + 0.25*r)) - 4.*(0. - 8.*r))*(0. - 8.*r))/
                          E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                         ((-4.*(0. - 8.*r) - 8.*(0.25*(0. - 8.*r) - 2.*r))*
                          (0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0.25*(0. - 8.*r) - 
                          8.*(0. + 0.25*r))*(0. - 8.*r) + ((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                          (0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. - 
                          8.*r) - 2.*r) + (128./E^(4.*r^2) - 8.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (32.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.25*(128./
                          E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*r - 
                         8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 
                          0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r) + 0.125*r^2*(-5120./E^(4.*r^2) + 
                          128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - 
                          (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) + 1.*
                          (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*
                          r)/E^(4.*r^2)) + 0.5*r*(0. + (384.*(0. - 8.*r))/
                          E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - 
                          (3072.*r)/E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/
                          E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 
                          24.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/
                          E^(4.*r^2))))/r)*Sin[theta]^2)/4)))*(-4 + 
                1.8*^-15*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                   (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) - 
                3.0000000000000004*^-8*(2.625/(E^(4.*r^2)*r^3) + 
                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
                1.5000000000000002*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                  (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)))/r^4)*(4 - 12*Cos[2*theta] - 
                  3.0000000000000004*^-8*(2.625/(E^(4.*r^2)*r^3) + 
                    (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                        E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                       (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                         (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                       0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                       (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                       (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                    (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                          (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                         8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                        (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                       (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                       (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                        (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
                    3*Cos[2*theta])*Sin[theta]^2) + 9.*^-16*
                 (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
                 Sin[2*theta]^2))/2 + 1.*^-8*(-1.8*^-7*
                (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2 + 6*
                (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
                (1 + 1.*^-8*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 
                 7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                   (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
               (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
                (-2 + 3.0000000000000004*^-8*r*(-1.875/(E^(4.*r^2)*r^4) - 
                   (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
                 1.5000000000000002*^-8*(2.625/(E^(4.*r^2)*r^3) + 
                   (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 
                 7.500000000000001*^-9*r*(-13.125/(E^(4.*r^2)*r^4) - 
                   (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                   (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                        ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                      ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                       (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                       (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                        (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                   (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                          0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                        E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                       ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                     (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                      E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
                        E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
                       (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                        E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
                  Sin[theta]^2))*((3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^2))/r^4 + (9*((0.75*(0. - 8.*r))/
                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                  (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                       ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                  (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                         0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                       E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                    (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                     E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                    0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                    8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                       E^(4.*r^2)))/r)*(2 + 3.0000000000000004*^-8*
                   (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                       (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
                   (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 3*
                ((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
                (-1 + 3*Cos[2*theta] - 6.000000000000001*^-8*
                  (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
                  (1 + 3*Cos[2*theta]) + 7.500000000000001*^-9*
                  (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
                   3*Cos[2*theta])*Sin[theta]^2) - 9.*^-8*
                (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
                 ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
                ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Sin[2*theta]^2)))/
           (2 - 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
              (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
              (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
              (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
              (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
                 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
              (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
              Sin[2*theta]^2)^2) + r^2*(1 - 3.0000000000000004*^-8*
           (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
              0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
            (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
             r^4) + 7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
            (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
               (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                 (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
            (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
               (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
                 r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 
              0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
              8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
              ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^
                (4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
              0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
               r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                 E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 
              8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*
           Sin[theta]^2)*((5.*^-9*(-9.*^-8*(-0.75/(E^(4.*r^2)*r^3) - 
               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
              ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - 
               (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 
                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^2)*Cos[theta]^2*Sin[theta]^2 - 
             (3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 + 
                3*Cos[2*theta])*(-1 + 3.0000000000000004*^-8*
                 (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) - 
                7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2))/2)*
            (r*(2 - 3.0000000000000004*^-8*r*(-1.875/(E^(4.*r^2)*r^4) - 
                 (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
               6.000000000000001*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)))/r^4) + 1.5000000000000002*^-8*
                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
               7.500000000000001*^-9*r*(-13.125/(E^(4.*r^2)*r^4) - 
                 (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                 (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)))/r)*Sin[theta]^2)*
              (-1 + 3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)) + 
             1.35*^-15*r*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
              (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2))/
           (r^2*(9.*^-16*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
              Sin[theta]^2 - (1 - 3.0000000000000004*^-8*
                (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 
               7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
              (1 + 3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)))/r^4)*(2 - 3*Sin[theta]^2)))*
            (2 - 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
              (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
              (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
              (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
              (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
                 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
              (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
              Sin[2*theta]^2)) - 
          (5.*^-9*((3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(2 + 
                3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                  (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))/2 + 
             3*Sin[theta]^2*(3.0000000000000004*^-8*(-0.75/(E^(4.*r^2)*r^3) - 
                 (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
                ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Cos[theta]^2 + 
               (((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                  (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                       ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                  (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                         0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                       E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                    (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                     E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                    0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                    8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                       E^(4.*r^2)))/r)*(-1 + 3.0000000000000004*^-8*
                   (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                       (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
                   (-2 + 3*Sin[theta]^2)))/4))*(r*(2 - 3.0000000000000004*^-8*
                r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
                 ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
               6.000000000000001*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)))/r^4) + 1.5000000000000002*^-8*
                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
               7.500000000000001*^-9*r*(-13.125/(E^(4.*r^2)*r^4) - 
                 (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                 (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)))/r)*Sin[theta]^2)*
              (-1 + 3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)) + 
             1.35*^-15*r*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
              (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2))/
           (r^2*(9.*^-16*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
              Sin[theta]^2 - (1 - 3.0000000000000004*^-8*
                (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 
               7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
              (1 + 3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)))/r^4)*(2 - 3*Sin[theta]^2)))*
            (-2 + 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
              (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
              (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r)*Sin[theta]^2 - 6.000000000000001*^-8*
              (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
              (1 - 3*Sin[theta]^2 + 3.7500000000000005*^-9*
                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
                 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
              (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
              Sin[2*theta]^2)) + (4.5*^-16*Cos[theta]^2*
            (-3.0000000000000004*^-8*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)))/r^5)*(-0.75/(E^(4.*r^2)*r^3) - 
               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
              (1 + 3*Cos[2*theta]) + ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 
                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^2)*(2 + 3.0000000000000004*^-8*
                (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
                (1 + 3*Cos[2*theta])))*Sin[theta]^2*
            (-1.8*^-7*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2 + 
             6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(1 + 1.*^-8*
                (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
                 ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 
               7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
             (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)))/r^4)*(-2 + 3.0000000000000004*^-8*r*
                (-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
                 ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
               1.5000000000000002*^-8*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 
               7.500000000000001*^-9*r*(-13.125/(E^(4.*r^2)*r^4) - 
                 (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                 (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)))/r)*Sin[theta]^2)))/
           (r*(2 - 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
              (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
              (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
              (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
              (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
                 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
              (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
              Sin[2*theta]^2)*(-2 + 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + 
                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                    E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) - 
             1.5000000000000002*^-8*(2.625/(E^(4.*r^2)*r^3) + 
               (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
               (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r)*Sin[theta]^2 - 3.0000000000000004*^-8*
              (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
              (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
                 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
              (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
              Sin[2*theta]^2)) - (4.5*^-16*Cos[theta]^2*
            (-3.0000000000000004*^-8*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)))/r^5)*(-0.75/(E^(4.*r^2)*r^3) - 
               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
              (1 + 3*Cos[2*theta]) + ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 
                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^2)*(2 + 3.0000000000000004*^-8*
                (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
                (1 + 3*Cos[2*theta])))*Sin[theta]^2*
            (6.000000000000001*^-8*(-0.75/(E^(4.*r^2)*r^3) - 
                (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[2*theta] - 
             ((2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(2 + 
                3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                  (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))/4 + 
             (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)))/r^4)*(2 - 3.0000000000000004*^-8*r*
                (-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
                 ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
               6.000000000000001*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)))/r^4) + 1.5000000000000002*^-8*
                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
               7.500000000000001*^-9*r*(-13.125/(E^(4.*r^2)*r^4) - 
                 (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                 (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)))/r)*Sin[theta]^2)))/
           (r*(2 - 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
              (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
              (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
              (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
              (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
                 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
              (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
              Sin[2*theta]^2)*(-2 + 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + 
                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                    E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) - 
             1.5000000000000002*^-8*(2.625/(E^(4.*r^2)*r^3) + 
               (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
               (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r)*Sin[theta]^2 - 3.0000000000000004*^-8*
              (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
              (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
                 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
              (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
              Sin[2*theta]^2)) + (1.5000000000000002*^-8*
            (3.0000000000000004*^-8*(9.*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                  (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)))/r^4)^2 + (2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)/4 - 
               3.0000000000000004*^-8*(-0.75/(E^(4.*r^2)*r^3) - 
                  (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
                Cos[2*theta] + 3*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
                (-1 + 2.5*^-9*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(-1 + 
                   3*Cos[2*theta])))*(-3.0000000000000004*^-8*
                ((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
                (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
                 ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
                (1 + 3*Cos[2*theta]) + ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/
                     E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*
                (2 + 3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                   (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
                    r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))*
              Sin[2*theta]^2 + Cos[theta]^2*(-3.0000000000000004*^-8*
                ((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
                (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
                 ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
                (1 + 3*Cos[2*theta]) + ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/
                     E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*
                (2 + 3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                   (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
                    r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))*
              (-2 + 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) - 
               1.5000000000000002*^-8*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 
               3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)))/r^4)*(-1 + 3*Cos[2*theta] + 
                 7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                   (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
                   3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
                (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                     E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
                Sin[2*theta]^2) - (-3.0000000000000004*^-8*
                ((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
                (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
                 ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
                (1 + 3*Cos[2*theta]) + ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/
                     E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*
                (2 + 3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                   (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
                    r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
              (-2 + 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) - 
               1.5000000000000002*^-8*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 
               3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)))/r^4)*(-1 + 3*Cos[2*theta] + 
                 7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                   (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
                   3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
                (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                     E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
                Sin[2*theta]^2) + 6.000000000000001*^-8*
              (3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
                (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
                 ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) - 3*
                (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
                ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2))*Cos[theta]*
              Sin[theta]*Sin[2*theta]*(-2 + 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + 
                  (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) - 
               1.5000000000000002*^-8*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 
               3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)))/r^4)*(-1 + 3*Cos[2*theta] + 
                 7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                   (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
                   3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
                (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                     E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
                Sin[2*theta]^2)))/(r*(2 - 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + 
                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) + 
              1.5000000000000002*^-8*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
              3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                    E^(4.*r^2)))/r^4)*(-1 + 3*Cos[2*theta] + 
                7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
                  3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
               (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
                2)^2) - (5.*^-9*r*(9.*^-16*(-0.75/(E^(4.*r^2)*r^3) - 
                 (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^
                2*Sin[theta]^2 - (1 - 3.0000000000000004*^-8*
                 (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 
                7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*(1 + 
                3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                  (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)))/r^4)*(2 - 3*Sin[theta]^2)))*
             (6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(-2 + 
                3*Sin[theta]^2)*(2 - 3.0000000000000004*^-8*r*
                 (-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
                  ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
                6.000000000000001*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                  (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)))/r^4) + 1.5000000000000002*^-8*
                 (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                  (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
                7.500000000000001*^-9*r*(-13.125/(E^(4.*r^2)*r^4) - 
                  (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                  (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                       ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                  (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                         0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                       E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                    (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                     E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                    0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                    8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                       E^(4.*r^2)))/r)*Sin[theta]^2) + 
              2*(-6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
                3*r*((15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^5 - (6*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^4 - (15*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3) + 
                (3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                   (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                        ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                      ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                       (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                       (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                        (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                   (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                          0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                        E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                       ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                     (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                      E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
                        E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
                       (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                        E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
                  Sin[theta]^2)/2 + (3*r*((105*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^5 - (48*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^4 - (105*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + 
                   (13*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                        ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                      ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                       (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                       (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                        (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 - 
                   (3*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 
                         8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*
                       ((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                         E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                         E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
                        (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 
                         2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 
                          8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.25*r) + 
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                      2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                         E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 
                      0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
                         E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
                        (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                         E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2))))/
                    r^2 + (0. + 32./E^(4.*r^2) + 0.25*(-8.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r)) - 8.*(-4./E^(4.*r^2) + ((0.25*(0. - 8.*r) - 
                          8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2)) - 
                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     1.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2)) - 8.*(-4./E^(4.*r^2) + 
                       ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2)) + 
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 
                     8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. + 0.25*r)) - 8.*
                      (0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                          E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 
                          0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                         8.*r)*(0. + 0.25*r)) + ((-8.*(0.25*(0. - 8.*r) - 
                          8.*(0. + 0.25*r)) - 4.*(0. - 8.*r))*(0. - 8.*r))/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                     ((-4.*(0. - 8.*r) - 8.*(0.25*(0. - 8.*r) - 2.*r))*
                       (0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r) + ((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                      (0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. - 
                         8.*r) - 2.*r) + (128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                     0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                        E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                        E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                     (32.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.25*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*(0. - 8.*r)*r - 8.*(0.25*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 0.5*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r) + 0.125*r^2*(-5120./E^(4.*r^2) + 
                       128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 
                       24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                       (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                        E^(4.*r^2)) + 1.*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^
                          2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                       (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 0.5*r*(0. + 
                       (384.*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. - 8.*r)^3)/
                        E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + (384.*(0. - 8.*r)^
                          2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/
                        E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                         (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2)/4)*(-1 + 
                3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                  (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)) + 
              2.7*^-7*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(
                -0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2 + 
              2.7*^-7*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Sin[2*theta]^2) - 
            (r*(2 - 3.0000000000000004*^-8*r*(-1.875/(E^(4.*r^2)*r^4) - 
                  (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
                6.000000000000001*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                  (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)))/r^4) + 1.5000000000000002*^-8*
                 (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                  (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
                7.500000000000001*^-9*r*(-13.125/(E^(4.*r^2)*r^4) - 
                  (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                  (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                       ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                  (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                         0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                       E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                    (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                     E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                    0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                    8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                       E^(4.*r^2)))/r)*Sin[theta]^2)*(-1 + 
                3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                  (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)) + 
              1.35*^-15*r*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
                -0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2)*
             (3.0000000000000004*^-8*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(-2 + 
                3*Sin[theta]^2)*(1 - 3.0000000000000004*^-8*
                 (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 
                7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
              1.*^-8*(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
                (3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                   (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                        ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                      ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                       (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                       (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                        (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                   (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                          0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                        E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                       ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                     (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                      E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
                        E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
                       (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                        E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
                  Sin[theta]^2)/4)*(1 + 3.0000000000000004*^-8*
                 (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
                 (2 - 3*Sin[theta]^2)) + 4.5*^-16*(-0.75/(E^(4.*r^2)*r^3) - 
                (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Sin[2*theta]^2))/
           (2*r^2*(-9.*^-16*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
                 ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^
                2*Sin[theta]^2 + (1 - 3.0000000000000004*^-8*
                 (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 
                7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*(1 + 
                3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                  (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)))/r^4)*(2 - 3*Sin[theta]^2)))^2)))/
       (Sqrt[2]*r) + (-3.0000000000000004*^-8*r*(-0.75/(E^(4.*r^2)*r^3) - 
         (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
            (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
              (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
         ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
           ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
           0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
           (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
           0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
            r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
             E^(4.*r^2)))/r^4)*Cos[theta]*Sin[theta]*
        ((3.0000000000000004*^-16*r*Cos[theta]*Sin[theta]*
           (-9.*^-8*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^4)*((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                  E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^
                4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^2)*Cos[theta]^2*Sin[theta]^2 - 
            (3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
              (1 + 3*Cos[2*theta])*(-1 + 3.0000000000000004*^-8*
                (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) - 
               7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2))/2)*
           (((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - 
              (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^2)*(1 - 3.0000000000000004*^-8*(
                0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 
              7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
            1.*^-8*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^4)*(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
              (3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                 (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)))/r)*Sin[theta]^2)/4)))/
          (2 - 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(2.625/(E^(4.*r^2)*
                  r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
               Sin[theta]^2) - 4.5*^-16*(-0.75/(E^(4.*r^2)*r^3) - 
               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^
           2 + (3.0000000000000004*^-16*r*Cos[theta]*Sin[theta]*
           (((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - 
              (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^2)*(1 - 3.0000000000000004*^-8*(
                0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 
              7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
            1.*^-8*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^4)*(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
              (3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                 (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)))/r)*Sin[theta]^2)/4))*
           ((3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
              (2 + 3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))/2 + 
            3*Sin[theta]^2*(3.0000000000000004*^-8*(-0.75/(E^(4.*r^2)*r^3) - 
                (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Cos[theta]^2 + 
              (((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                 (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)))/r)*(-1 + 3.0000000000000004*^-8*
                  (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
                  (-2 + 3*Sin[theta]^2)))/4)))/
          ((2 - 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(2.625/(E^(4.*r^2)*
                  r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
               Sin[theta]^2) - 4.5*^-16*(-0.75/(E^(4.*r^2)*r^3) - 
               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
           (-2 + 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r)*Sin[theta]^2 - 6.000000000000001*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (1 - 3*Sin[theta]^2 + 3.7500000000000005*^-9*(2.625/(E^(4.*r^2)*
                  r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
               Sin[theta]^2) + 4.5*^-16*(-0.75/(E^(4.*r^2)*r^3) - 
               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
             Sin[2*theta]^2)) - (3.0000000000000004*^-8*r*Cos[theta]*
           Sin[theta]*(-1/2*((((-6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 
                       0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^2))/r^5 + (6*((0.75*(0. - 8.*r))/
                     E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^4 - (3*(0. - 2./E^(4.*r^2) + 
                    0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                       E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
                      (0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/
                     E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 + 
                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)))/r^2)*(-1 + 3.0000000000000004*^-8*
                  (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) - 
                 7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                   (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) - 
               1.*^-8*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
                 ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
                (3*((3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^5 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^4 + (0. - 2./E^(4.*r^2) + 
                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                        E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
                       (0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/
                      E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                     0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3) - 
                 (3*((21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                        E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        r^2))/r^5 - (21*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                       (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                         (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                       0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                       (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^2))/r^4 + (9*(0. - 2./E^(4.*r^2) + 
                       0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                          E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 
                          0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*
                         (0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                         (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                         8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                       0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                         (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 - 
                    (2*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 
                          8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*
                        ((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                          E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                          E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
                         (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 
                          2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 
                          8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.25*r) + 
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                       2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                       0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 
                       0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 
                         8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 
                          8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                        (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*
                          r)/E^(4.*r^2))))/r^2 + (0. + 32./E^(4.*r^2) + 
                      0.25*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r)) - 8.*(-4./E^(4.*r^2) + 
                        ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                         E^(4.*r^2)) - 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 1.*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) - 8.*(-4./E^(4.*r^2) + ((0. - 8.*r)*
                          (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2)) + 
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 
                      8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. + 0.25*r)) - 8.*(0.5*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                          E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*
                          r))*(0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 
                          0.25*r)) + ((-8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                          0.25*r)) - 4.*(0. - 8.*r))*(0. - 8.*r))/
                       E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                      ((-4.*(0. - 8.*r) - 8.*(0.25*(0. - 8.*r) - 2.*r))*
                        (0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0.25*(0. - 8.*r) - 
                        8.*(0. + 0.25*r))*(0. - 8.*r) + ((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                       (0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. - 
                          8.*r) - 2.*r) + (128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                      0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                         E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                         E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                      (32.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.25*(128./
                         E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*r - 
                      8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 0.5*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r) + 0.125*r^2*(-5120./E^(4.*r^2) + 
                        128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 
                        16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
                         E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
                         E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - 
                        (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) + 1.*
                       (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*
                          r)/E^(4.*r^2)) + 0.5*r*(0. + (384.*(0. - 8.*r))/
                         E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - 
                        (3072.*r)/E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/
                         E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 
                        24.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/
                          E^(4.*r^2))))/r)*Sin[theta]^2)/4))*(-4 + 1.8*^-15*
                (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
                (1 + 3*Cos[2*theta]) - 3.0000000000000004*^-8*
                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
               1.5000000000000002*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)))/r^4)*(4 - 12*Cos[2*theta] - 
                 3.0000000000000004*^-8*(2.625/(E^(4.*r^2)*r^3) + 
                   (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
                   3*Cos[2*theta])*Sin[theta]^2) + 9.*^-16*
                (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                     E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
                Sin[2*theta]^2)) + 1.*^-8*(((6*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(1 - 
                3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                  (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)))/r^4) + 7.500000000000001*^-9*
                 (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                  (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
              1.*^-8*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
                3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
                (3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                   (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                        ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                      ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                       (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                       (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                        (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                   (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                          0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                        E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                       ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                     (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                      E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
                        E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
                       (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                        E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
                  Sin[theta]^2)/4))*((3*((-21*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
                 (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                 (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)))/r)*(2 + 3.0000000000000004*^-8*
                  (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
              3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(-1 + 
                3*Cos[2*theta] - 6.000000000000001*^-8*(0.375/(E^(4.*r^2)*
                    r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
                   r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) + 
                7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
                  3*Cos[2*theta])*Sin[theta]^2) - 9.*^-8*(-0.75/(E^(4.*r^2)*
                  r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Sin[2*theta]^2)))/
          (2 - 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(2.625/(E^(4.*r^2)*
                  r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
               Sin[theta]^2) - 4.5*^-16*(-0.75/(E^(4.*r^2)*r^3) - 
               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^
           2) + r^2*(1 - 3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
           (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
             (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
               (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
           (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
            r^4) + 7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
           (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
              (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
           (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^
                (4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
              (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
              0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                 E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
              (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
           (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                 (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
             (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(
                0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
             (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
              (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
               (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
               (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 
             0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^
                 4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                 r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
        ((-1.0000000000000001*^-16*
           ((3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(2 + 
                3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                  (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))/2 + 
             3*Sin[theta]^2*(3.0000000000000004*^-8*(-0.75/(E^(4.*r^2)*r^3) - 
                 (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
                ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Cos[theta]^2 + 
               (((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                  (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                       ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                  (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                         0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                       E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                    (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                     E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                    0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                    8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                       E^(4.*r^2)))/r)*(-1 + 3.0000000000000004*^-8*
                   (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                       (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
                   (-2 + 3*Sin[theta]^2)))/4))^2)/
          (-2 + 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r)*Sin[theta]^2 - 6.000000000000001*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (1 - 3*Sin[theta]^2 + 3.7500000000000005*^-9*(2.625/(E^(4.*r^2)*
                  r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
               Sin[theta]^2) + 4.5*^-16*(-0.75/(E^(4.*r^2)*r^3) - 
               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^
           2 + (4.5*^-16*Cos[theta]^2*(-3.0000000000000004*^-8*
             ((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
              ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
             (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^4)*(1 + 3*Cos[2*theta]) + 
            ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - 
              (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^2)*(2 + 3.0000000000000004*^-8*(
                0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])))*Sin[theta]^2*
           (((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - 
              (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^2)*(1 - 3.0000000000000004*^-8*(
                0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 
              7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
            1.*^-8*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^4)*(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
              (3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                 (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)))/r)*Sin[theta]^2)/4)))/
          ((2 - 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(2.625/(E^(4.*r^2)*
                  r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
               Sin[theta]^2) - 4.5*^-16*(-0.75/(E^(4.*r^2)*r^3) - 
               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
           (-2 + 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r)*Sin[theta]^2 - 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(2.625/(E^(4.*r^2)*
                  r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
               Sin[theta]^2) + 4.5*^-16*(-0.75/(E^(4.*r^2)*r^3) - 
               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
             Sin[2*theta]^2)) - 
         (1.*^-8*(((9.*^-8*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 
                        0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
                     E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)^2*
                (1 + 3*Cos[2*theta]) + 3*((3*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^5 - 
                 (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^4 + (0. - 2./E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
                     (0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/
                    E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/
                    E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3)*
                (2 + 3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                   (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
                    r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])) + 6*
                Sin[theta]^2*(3.0000000000000004*^-8*((6*(0.25/E^(4.*r^2) + 
                       ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                     r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                       (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                         (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                       0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                       (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                       (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                    (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                          (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                         8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                        (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                       (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                       (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                        (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)^2*Cos[theta]^
                   2 + 3.0000000000000004*^-8*(-0.75/(E^(4.*r^2)*r^3) - 
                   (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
                  ((-6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^5 + (6*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^4 - (3*(0. - 2./E^(4.*r^2) + 
                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                         E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
                        (0. - 8.*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/
                       E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                      0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                        (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 + 
                   (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                          0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                        E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                       ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                     (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                      E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
                        E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
                       (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                        E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r^2)*
                  Cos[theta]^2 + 7.500000000000001*^-9*
                  ((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
                  ((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                   (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                        ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                      ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                       (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                       (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                        (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                   (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                          0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                        E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                       ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                     (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                      E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
                        E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
                       (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                        E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
                  (-2 + 3*Sin[theta]^2) + (((21*(0.25/E^(4.*r^2) + 
                       ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                     r^5 - (21*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                       (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                         (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                       0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                       (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^2))/r^4 + (9*(0. - 2./E^(4.*r^2) + 
                       0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                          E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 
                          0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*
                         (0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                         (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                         8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                       0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                         (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 - 
                    (2*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 
                          8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*
                        ((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                          E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                          E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
                         (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 
                          2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 
                          8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.25*r) + 
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                       2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                       0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 
                       0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 
                         8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                         16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 
                          8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                        (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*
                          r)/E^(4.*r^2))))/r^2 + (0. + 32./E^(4.*r^2) + 
                      0.25*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r)) - 8.*(-4./E^(4.*r^2) + 
                        ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                         E^(4.*r^2)) - 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 1.*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) - 8.*(-4./E^(4.*r^2) + ((0. - 8.*r)*
                          (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2)) + 
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 
                      8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. + 0.25*r)) - 8.*(0.5*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                          E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*
                          r))*(0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 
                          0.25*r)) + ((-8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                          0.25*r)) - 4.*(0. - 8.*r))*(0. - 8.*r))/
                       E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                      ((-4.*(0. - 8.*r) - 8.*(0.25*(0. - 8.*r) - 2.*r))*
                        (0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0.25*(0. - 8.*r) - 
                        8.*(0. + 0.25*r))*(0. - 8.*r) + ((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                       (0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. - 
                          8.*r) - 2.*r) + (128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                      0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                         E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                         E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                      (32.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.25*(128./
                         E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*r - 
                      8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 0.5*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r) + 0.125*r^2*(-5120./E^(4.*r^2) + 
                        128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 
                        16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
                         E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
                         E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - 
                        (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) + 1.*
                       (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*
                          r)/E^(4.*r^2)) + 0.5*r*(0. + (384.*(0. - 8.*r))/
                         E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - 
                        (3072.*r)/E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/
                         E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 
                        24.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/
                          E^(4.*r^2))))/r)*(-1 + 3.0000000000000004*^-8*
                     (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                        ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                        (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
                       r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
                          r^2)/E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)))/4))*
              (-2 + 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) - 
               1.5000000000000002*^-8*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 
               6.000000000000001*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)))/r^4)*(1 - 3*Sin[theta]^2 + 
                 3.7500000000000005*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                   (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
                   3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
                (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                     E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
                Sin[2*theta]^2))/2 - 2.5*^-9*(6*((-3*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(2 + 
                3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                  (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])) - 
              (3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                 (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)))/r)*(2 + 3.0000000000000004*^-8*
                  (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/2 + 
              9.*^-8*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Sin[2*theta]^2)*
             ((-3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                 (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)))/r)*(2 + 3.0000000000000004*^-8*
                  (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
              3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 - 
                3*Cos[2*theta] + 6.000000000000001*^-8*(0.375/(E^(4.*r^2)*
                    r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
                   r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) - 
                7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
                  3*Cos[2*theta])*Sin[theta]^2) + 9.*^-8*(-0.75/(E^(4.*r^2)*
                  r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Sin[2*theta]^2)))/
          (2 - 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(2.625/(E^(4.*r^2)*
                  r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
               Sin[theta]^2) - 4.5*^-16*(-0.75/(E^(4.*r^2)*r^3) - 
               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^
           2))/(2*Sqrt[2]*r))/(Sqrt[2]*r))/2 + 
 ((I*Csc[theta]*(((-1/2*I)*r*Sin[theta]*(1 - 7.500000000000001*^-9*
          (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
              0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
           (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^
                (4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
              (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
              0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                 E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
              (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
           (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                 (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
             (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(
                0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
             (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
              (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
               (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
               (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 
             0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^
                 4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                 r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
          (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
             ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
              E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
              r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^
                (4.*r^2)))/r^4)*(-1 + 3*Sin[theta]^2))*
        ((-5.*^-9*(-9.000000000000001*^-8*r*(-1.875/(E^(4.*r^2)*r^4) - 
              (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
              ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) + 
            1.5000000000000002*^-8*(2.625/(E^(4.*r^2)*r^3) + 
              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r) + 7.500000000000001*^-9*r*
             (-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
              (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 
                8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                 E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                  (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
                  (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                   E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r) - 
            2*Csc[theta]^2 + 3.0000000000000004*^-8*r*
             (-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 + 
              (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^5)*Csc[theta]^2 + 6.000000000000001*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-3 + Csc[theta]^2))*((3*((-21*(0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^4 + (9*((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
               (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 
                 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
                  E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - 
                   (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                      0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
                   (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
                  E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                    E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                    E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
                   (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                    E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
              Sin[theta]^2)/4 + 3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 + 
              (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^5)*(1 - 3*Sin[theta]^2)))/
          (r*(7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r) - Csc[theta]^2 + 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-3 + Csc[theta]^2))*(-2 + 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r)*Sin[theta]^2)) - 
         (1.*^-8*(-((3.0000000000000004*^-8*(-1.875/(E^(4.*r^2)*r^4) - 
                 (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
                (-1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
                (-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
                 (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                 (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)))/r)*Sin[theta]^2)*
              ((3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                  (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                       ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                  (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                         0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                       E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                    (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                     E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                    0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                    8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                       E^(4.*r^2)))/r)*Sin[theta]^2)/4 + 3*
                ((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
                (1 - 3*Sin[theta]^2))) + (-2 + 3.0000000000000004*^-8*(
                0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-1 + 
                3*Cos[2*theta]) + 1.5000000000000002*^-8*(2.625/(E^(4.*r^2)*
                  r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
             ((3*((105*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^5 - (48*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^4 - (105*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + 
                 (13*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 - 
                 (3*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                         0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                       E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                    (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                     E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                    0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                    8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                       E^(4.*r^2))))/r^2 + (0. + 32./E^(4.*r^2) + 
                   0.25*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*(0. - 8.*r)) - 8.*(-4./E^(4.*r^2) + 
                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                      E^(4.*r^2)) - 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 1.*(128./E^(4.*r^2) - 8.*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) - 8.*(-4./E^(4.*r^2) + ((0. - 8.*r)*
                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2)) + 
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                    (0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 
                   8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*(0. + 0.25*r)) - 8.*
                    (0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                        E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
                       (0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r)) + 
                   ((-8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 
                      4.*(0. - 8.*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*(0. - 8.*r) + ((-4.*(0. - 8.*r) - 
                      8.*(0.25*(0. - 8.*r) - 2.*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r) + 
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                    (0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. - 
                       8.*r) - 2.*r) + (128./E^(4.*r^2) - 8.*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                   0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                         3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (32.*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                      E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*r - 
                   8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 0.5*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r) + 0.125*r^2*(-5120./E^(4.*r^2) + 
                     128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                     (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - 
                     (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
                      E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) + 
                   1.*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)) + 0.5*r*(0. + (384.*(0. - 8.*r))/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/
                      E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                     (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*
                      (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
                Sin[theta]^2)/4 + 3*((15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^5 - (6*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^4 - (15*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3)*(1 - 
                3*Sin[theta]^2))))/(-2 + 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r)*Sin[theta]^2)^2 + 
         (5.*^-9*(-9.000000000000001*^-8*r*(-1.875/(E^(4.*r^2)*r^4) - 
              (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
              ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) + 
            1.5000000000000002*^-8*(2.625/(E^(4.*r^2)*r^3) + 
              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r) + 7.500000000000001*^-9*r*
             (-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
              (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 
                8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                 E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                  (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
                  (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                   E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r) - 
            2*Csc[theta]^2 + 3.0000000000000004*^-8*r*
             (-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 + 
              (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^5)*Csc[theta]^2 + 6.000000000000001*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-3 + Csc[theta]^2))*(-9.*^-8*(-0.75/(E^(4.*r^2)*r^3) - 
              (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
              ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - 
              (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^2)*Cos[theta]^2*Sin[theta]^2 - 
            (3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
              (1 + 3*Cos[2*theta])*(-1 + 3.0000000000000004*^-8*
                (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) - 
               7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2))/2))/
          (r*(7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r) - Csc[theta]^2 + 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-3 + Csc[theta]^2))*(2 - 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + 
               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
               (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
                r^4)^2*(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(2.625/(E^(4.*r^2)*
                  r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
               Sin[theta]^2) - 4.5*^-16*(-0.75/(E^(4.*r^2)*r^3) - 
               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
             Sin[2*theta]^2)) + (1.5000000000000002*^-8*Cos[theta]*
           (-3.0000000000000004*^-8*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 + 
              (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^5)*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^4)*(1 + 3*Cos[2*theta]) + 
            ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - 
              (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^2)*(2 + 3.0000000000000004*^-8*(
                0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])))*(1.5000000000000002*^-8*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r)*Cos[theta] - Cot[theta]*Csc[theta] + 
            3*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-6.000000000000001*^-8*Cos[theta] + 1.*^-8*Cot[theta]*Csc[
                theta])))/(r*(7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r) - Csc[theta]^2 + 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-3 + Csc[theta]^2))*(-2 + 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + 
               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
               (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
                r^4)^2*(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r)*Sin[theta]^2 - 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(2.625/(E^(4.*r^2)*
                  r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
               Sin[theta]^2) + 4.5*^-16*(-0.75/(E^(4.*r^2)*r^3) - 
               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
             Sin[2*theta]^2))))/Sqrt[2] + 
      ((I/2)*r*Sin[theta]*(1 - 7.500000000000001*^-9*
          (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
              0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
           (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^
                (4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
              (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
              0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                 E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
              (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
           (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                 (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
             (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(
                0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
             (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
              (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
               (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
               (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 
             0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^
                 4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                 r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
          (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
             ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
              E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
              r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^
                (4.*r^2)))/r^4)*(-1 + 3*Sin[theta]^2))*
        (-1/4*(-9.000000000000001*^-8*r*(-1.875/(E^(4.*r^2)*r^4) - 
               (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) + 
             1.5000000000000002*^-8*(2.625/(E^(4.*r^2)*r^3) + 
               (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
               (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r) + 7.500000000000001*^-9*r*
              (-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
               (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 
                 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
                  E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - 
                   (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                      0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
                   (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
                  E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                    E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                    E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
                   (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                    E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r) - 
             2*Csc[theta]^2 + 3.0000000000000004*^-8*r*(-1.875/(E^(4.*r^2)*
                 r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*Csc[theta]^2 + 
             6.000000000000001*^-8*(0.375/(E^(4.*r^2)*r^3) + 
               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
               (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
                r^4)*(-3 + Csc[theta]^2))^2/
           (r^2*(7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r) - Csc[theta]^2 + 
              3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                    E^(4.*r^2)))/r^4)*(-3 + Csc[theta]^2))^2) + 
         (7.500000000000001*^-17*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                 (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
              (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^
                (4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^
                (4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 + 
            (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
             r^5)*(1 + 3*Cos[2*theta])*
           ((3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
               (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 
                 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
                  E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - 
                   (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                      0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
                   (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
                  E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                    E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                    E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
                   (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                    E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
              Sin[theta]^2)/4 + 3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 + 
              (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^5)*(1 - 3*Sin[theta]^2)))/(-2 + 3.0000000000000004*^-8*
            (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                 (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
            (-1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
            (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                 E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
             (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                   (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                  8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*
                 (0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 
                  2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*
                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                  E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*
                (0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*
            Sin[theta]^2) + (1.125*^-16*(2.625/(E^(4.*r^2)*r^3) + 
              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r)^2 - 7.500000000000001*^-9*
            (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                 E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
             (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                   (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                  8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*
                 (0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 
                  2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*
                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                  E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*
                (0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*
            (7.500000000000001*^-9*r^2*(78.75/(E^(4.*r^2)*r^5) + 
               (297*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                r^5 - (87*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^4 - (630*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + 
               (19*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 - 
               (4*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
                   E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
                    (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 
                     2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 
                     2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                   (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
                    (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2))))/r^2 + 
               (0. + 32./E^(4.*r^2) + 0.25*(-8.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)) - 
                 8.*(-4./E^(4.*r^2) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
                     (0. - 8.*r))/E^(4.*r^2)) - 12.*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2)) + 1.*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                    E^(4.*r^2)) - 8.*(-4./E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2)) + 
                 ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  (0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 
                 8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                    (0. + 0.25*r)) - 8.*(0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r)) + ((-8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                        0.25*r)) - 4.*(0. - 8.*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*(0. - 8.*r) + ((-4.*(0. - 8.*r) - 
                    8.*(0.25*(0. - 8.*r) - 2.*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r) + 
                 ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  (0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r) + 
                 (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                   (0. - 8.*r)^5/E^(4.*r^2))*r + (32.*(0. - 8.*r)*r)/
                  E^(4.*r^2) + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                    E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*r - 
                 8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 0.5*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r) + 
                 0.125*r^2*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                   (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - 
                   (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
                    E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) + 
                 1.*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                    E^(4.*r^2)) + 0.5*r*(0. + (384.*(0. - 8.*r))/E^(4.*r^2) - 
                   (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + 
                   (384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*
                     r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                     (64.*r^2)/E^(4.*r^2))))/r) + 4*Csc[theta]^2 - 
             6.000000000000001*^-8*(0.375/(E^(4.*r^2)*r^3) + 
               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
               (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
                r^4)*(-1 + 3*Cos[2*theta])*Csc[theta]^2 + 
             3.0000000000000004*^-8*r^2*(11.25/(E^(4.*r^2)*r^5) + 
               (39*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                r^5 - (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^4 - (90*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + (0. - 
                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^3)*(-3 + Csc[theta]^2)) + 
           (2.25*^-16*r^2*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
                   E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
                    (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 
                     2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 
                     2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                   (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
                    (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)^2 + 
             9.*^-16*r^2*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)))/r^5)*(-13.125/(E^(4.*r^2)*r^4) - 
               (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
               (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + (0. + 
                 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
                  E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - 
                   (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                      0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
                   (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
                  E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                    E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                    E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
                   (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                    E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
              (-1 + 3*Cos[2*theta])*Csc[theta]^2 + 9.*^-16*r^2*
              (-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)^2*
              (1 - 3*Cos[2*theta])^2*Csc[theta]^4 + 1.8*^-15*
              (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
              (1 - 3*Cos[2*theta])^2*Csc[theta]^4 + 4*Csc[theta]^2*
              (7.500000000000001*^-9*r^2*(78.75/(E^(4.*r^2)*r^5) + 
                 (297*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^5 - (87*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^4 - (630*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + 
                 (19*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 - 
                 (4*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                         0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                       E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                    (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                     E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                    0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                    8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                       E^(4.*r^2))))/r^2 + (0. + 32./E^(4.*r^2) + 
                   0.25*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*(0. - 8.*r)) - 8.*(-4./E^(4.*r^2) + 
                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                      E^(4.*r^2)) - 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 1.*(128./E^(4.*r^2) - 8.*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) - 8.*(-4./E^(4.*r^2) + ((0. - 8.*r)*
                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2)) + 
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                    (0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 
                   8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*(0. + 0.25*r)) - 8.*
                    (0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                        E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
                       (0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r)) + 
                   ((-8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 
                      4.*(0. - 8.*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*(0. - 8.*r) + ((-4.*(0. - 8.*r) - 
                      8.*(0.25*(0. - 8.*r) - 2.*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r) + 
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                    (0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. - 
                       8.*r) - 2.*r) + (128./E^(4.*r^2) - 8.*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                   0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                         3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (32.*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                      E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*r - 
                   8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 0.5*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r) + 0.125*r^2*(-5120./E^(4.*r^2) + 
                     128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                     (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - 
                     (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
                      E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) + 
                   1.*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)) + 0.5*r*(0. + (384.*(0. - 8.*r))/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/
                      E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                     (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*
                      (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r) + 2*
                Csc[theta]^2 + 3.0000000000000004*^-8*r^2*
                (11.25/(E^(4.*r^2)*r^5) + (39*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^5 - 
                 (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^4 - (90*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3)*(-3 + 
                 Csc[theta]^2)) - 3.0000000000000004*^-8*
              (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
              (-1 + 3*Cos[2*theta])*Csc[theta]^4*(8 + 3.0000000000000004*^-8*
                r^2*(11.25/(E^(4.*r^2)*r^5) + (39*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^5 - 
                 (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^4 - (90*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3)*(-1 + 
                 3*Cos[2*theta]) + 1.5000000000000002*^-8*r^2*
                (78.75/(E^(4.*r^2)*r^5) + (297*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^5 - 
                 (87*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^4 - (630*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + 
                 (19*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 - 
                 (4*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                         0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                       E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                    (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                     E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                    0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                    8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                       E^(4.*r^2))))/r^2 + (0. + 32./E^(4.*r^2) + 
                   0.25*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*(0. - 8.*r)) - 8.*(-4./E^(4.*r^2) + 
                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                      E^(4.*r^2)) - 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 1.*(128./E^(4.*r^2) - 8.*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2)) - 8.*(-4./E^(4.*r^2) + ((0. - 8.*r)*
                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2)) + 
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                    (0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 
                   8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*(0. + 0.25*r)) - 8.*
                    (0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                        E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
                       (0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r)) + 
                   ((-8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 
                      4.*(0. - 8.*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*(0. - 8.*r) + ((-4.*(0. - 8.*r) - 
                      8.*(0.25*(0. - 8.*r) - 2.*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r) + 
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                    (0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. - 
                       8.*r) - 2.*r) + (128./E^(4.*r^2) - 8.*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                   0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                         3/E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (32.*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                      E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*r - 
                   8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 0.5*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r) + 0.125*r^2*(-5120./E^(4.*r^2) + 
                     128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                     (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - 
                     (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
                      E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) + 
                   1.*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)) + 0.5*r*(0. + (384.*(0. - 8.*r))/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/
                      E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                     (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*
                      (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
                Sin[theta]^2))/4)/(2*r^2*(7.500000000000001*^-9*
              (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r) - Csc[theta]^2 + 3.0000000000000004*^-8*
              (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-3 + Csc[theta]^
                2))^2) + (7.500000000000001*^-9*
           (4*r*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^2) - 1.8*^-7*(0.375/(E^(4.*r^2)*r^3) + 
               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
               (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
                r^4)^2*(1 + 3*Cos[2*theta]) - (-0.75/(E^(4.*r^2)*r^3) - 
              (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
              ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-4 + 3.0000000000000004*^-8*r*(-1.875/(E^(4.*r^2)*r^4) - 
                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 + 
                3*Cos[2*theta])) + 6*(0.375/(E^(4.*r^2)*r^3) + 
              (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
              (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^4)*(-2 + 1.*^-8*(-0.75/(E^(4.*r^2)*r^3) - 
                (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta]) + 1.*^-8*r*(3.75/(E^(4.*r^2)*r^4) + 
                (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 - (5*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(1 + 
                3*Cos[2*theta])))*Csc[theta]*(1.5000000000000002*^-8*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r)*Cos[theta] - Cot[theta]*Csc[theta] + 
            3*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-6.000000000000001*^-8*Cos[theta] + 1.*^-8*Cot[theta]*Csc[
                theta]))*Sin[2*theta])/(r^2*(7.500000000000001*^-9*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r) - Csc[theta]^2 + 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-3 + Csc[theta]^2))*(-2 + 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + 
               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
               (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
                r^4)^2*(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r)*Sin[theta]^2 - 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(2.625/(E^(4.*r^2)*
                  r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
               Sin[theta]^2) + 4.5*^-16*(-0.75/(E^(4.*r^2)*r^3) - 
               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
             Sin[2*theta]^2)) + (2.5*^-9*(-9.000000000000001*^-8*r*
             (-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 + 
              (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^5) + 1.5000000000000002*^-8*(2.625/(E^(4.*r^2)*r^3) + 
              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r) + 7.500000000000001*^-9*r*
             (-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^4 + (13*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
              (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2))))/r^2 + (0. + 1.25*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/E^(4.*r^2) - 
                8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                 E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                  (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
                  (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                   E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r) - 
            2*Csc[theta]^2 + 3.0000000000000004*^-8*r*
             (-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 + 
              (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^5)*Csc[theta]^2 + 6.000000000000001*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-3 + Csc[theta]^2))*(-3*r*(-1.875/(E^(4.*r^2)*r^4) - 
              (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
              ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
             (1 + 3*Cos[2*theta])*(1 + 7.500000000000001*^-9*(
                2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
            9.*^-8*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2 + 
            9.*^-8*r*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^4)*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^2)*Sin[2*theta]^2 + 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (3*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 + 
                3*Cos[2*theta]) - 9*(-0.75/(E^(4.*r^2)*r^3) - 
                (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^
                2)))/(r^2*(7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r) - Csc[theta]^2 + 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-3 + Csc[theta]^2))*(-2 + 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + 
               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
               (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
                r^4)^2*(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r)*Sin[theta]^2 - 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(2.625/(E^(4.*r^2)*
                  r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
               Sin[theta]^2) + 4.5*^-16*(-0.75/(E^(4.*r^2)*r^3) - 
               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
             Sin[2*theta]^2))))/Sqrt[2]))/(Sqrt[2]*r) - 
   ((-3.0000000000000004*^-8*r*(-0.75/(E^(4.*r^2)*r^3) - 
         (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
            (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
              (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
         ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
           ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
           0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
           (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
           0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
            r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
             E^(4.*r^2)))/r^4)*Cos[theta]*Sin[theta]*
        ((-3.0000000000000004*^-16*Cos[theta]*Sin[theta]*
           (-9.*^-8*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^4)*((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                  E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^
                4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^2)*Cos[theta]^2*Sin[theta]^2 - 
            (3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
              (1 + 3*Cos[2*theta])*(-1 + 3.0000000000000004*^-8*
                (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) - 
               7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2))/2)*
           (-1.8*^-7*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2 + 
            6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (1 + 1.*^-8*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 
              7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
            (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^4)*(-2 + 3.0000000000000004*^-8*r*(-1.875/(E^(4.*r^2)*r^4) - 
                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
              1.5000000000000002*^-8*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 
              7.500000000000001*^-9*r*(-13.125/(E^(4.*r^2)*r^4) - 
                (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                   (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                      0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
                   E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
                    (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 
                     2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 
                     2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                   (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
                    (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
               Sin[theta]^2)))/(2 - 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + 
               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
               (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
                r^4)^2*(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(2.625/(E^(4.*r^2)*
                  r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
               Sin[theta]^2) - 4.5*^-16*(-0.75/(E^(4.*r^2)*r^3) - 
               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^
           2 + (3.0000000000000004*^-16*Cos[theta]*Sin[theta]*
           (-1.8*^-7*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2 + 
            6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (1 + 1.*^-8*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 
              7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
            (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^4)*(-2 + 3.0000000000000004*^-8*r*(-1.875/(E^(4.*r^2)*r^4) - 
                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
              1.5000000000000002*^-8*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 
              7.500000000000001*^-9*r*(-13.125/(E^(4.*r^2)*r^4) - 
                (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                   (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                      0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
                   E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
                    (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 
                     2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 
                     2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                   (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
                    (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
               Sin[theta]^2))*((3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)))/r^5)*(2 + 3.0000000000000004*^-8*
                (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
                (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
             (3.0000000000000004*^-8*(-0.75/(E^(4.*r^2)*r^3) - 
                (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Cos[theta]^2 + 
              (((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                 (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)))/r)*(-1 + 3.0000000000000004*^-8*
                  (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
                  (-2 + 3*Sin[theta]^2)))/4)))/
          ((2 - 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(2.625/(E^(4.*r^2)*
                  r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
               Sin[theta]^2) - 4.5*^-16*(-0.75/(E^(4.*r^2)*r^3) - 
               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
           (-2 + 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r)*Sin[theta]^2 - 6.000000000000001*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (1 - 3*Sin[theta]^2 + 3.7500000000000005*^-9*(2.625/(E^(4.*r^2)*
                  r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
               Sin[theta]^2) + 4.5*^-16*(-0.75/(E^(4.*r^2)*r^3) - 
               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
             Sin[2*theta]^2)) + (1.5000000000000002*^-8*Cos[theta]*
           (-3.0000000000000004*^-8*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 + 
              (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^5)*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^4)*(1 + 3*Cos[2*theta]) + 
            ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - 
              (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^2)*(2 + 3.0000000000000004*^-8*(
                0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])))*Sin[theta]*
           (1.8*^-15*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2 + 
            (1 + 7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
             (2 - 3.0000000000000004*^-8*r*(-1.875/(E^(4.*r^2)*r^4) - 
                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) + 
              1.5000000000000002*^-8*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
              7.500000000000001*^-9*r*(-13.125/(E^(4.*r^2)*r^4) - 
                (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                   (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                      0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
                   E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
                    (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 
                     2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 
                     2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                   (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
                    (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
               Sin[theta]^2) - 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (4 - 3.0000000000000004*^-8*r*(-1.875/(E^(4.*r^2)*r^4) - 
                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) + 
              6.000000000000001*^-8*(-0.75/(E^(4.*r^2)*r^3) - 
                (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*Cos[2*theta] + 
              3.0000000000000004*^-8*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
              7.500000000000001*^-9*r*(-13.125/(E^(4.*r^2)*r^4) - 
                (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                   (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                      0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
                   E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
                    (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 
                     2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 
                     2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                   (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
                    (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
               Sin[theta]^2) + 6.000000000000001*^-8*(-0.75/(E^(4.*r^2)*
                r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                  E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^
                3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(Cos[2*theta] - 
              7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^4)))/
          ((-2 + 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r)*Sin[theta]^2 - 6.000000000000001*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (1 - 3*Sin[theta]^2 + 3.7500000000000005*^-9*(2.625/(E^(4.*r^2)*
                  r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
               Sin[theta]^2) + 4.5*^-16*(-0.75/(E^(4.*r^2)*r^3) - 
               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
           (-2 + 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r)*Sin[theta]^2 - 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(2.625/(E^(4.*r^2)*
                  r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
               Sin[theta]^2) + 4.5*^-16*(-0.75/(E^(4.*r^2)*r^3) - 
               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
             Sin[2*theta]^2)) + (1.5000000000000002*^-16*Cos[theta]*
           Sin[theta]*(((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                  E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^
                4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^2)*(1 - 3.0000000000000004*^-8*(
                0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 
              7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
            1.*^-8*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^4)*(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
              (3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                 (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)))/r)*Sin[theta]^2)/4))*
           (-3*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 + 
              (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^5)*(1 + 3*Cos[2*theta])*(1 + 7.500000000000001*^-9*(
                2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
            9.*^-8*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2 + 
            9.*^-8*r*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^4)*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^2)*Sin[2*theta]^2 + 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (3*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 + 
                3*Cos[2*theta]) - 9*(-0.75/(E^(4.*r^2)*r^3) - 
                (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^
                2)))/((2 - 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + 
               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
               (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
                r^4)^2*(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(2.625/(E^(4.*r^2)*
                  r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
               Sin[theta]^2) - 4.5*^-16*(-0.75/(E^(4.*r^2)*r^3) - 
               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
           (-2 + 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r)*Sin[theta]^2 - 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(2.625/(E^(4.*r^2)*
                  r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
               Sin[theta]^2) + 4.5*^-16*(-0.75/(E^(4.*r^2)*r^3) - 
               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
             Sin[2*theta]^2)) + (7.500000000000001*^-9*Sin[2*theta]*
           (-8.*^-8*(9.*^-8*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2 + 
              (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)/4 - 
              3.0000000000000004*^-8*(-0.75/(E^(4.*r^2)*r^3) - 
                 (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[
                2*theta] + 3*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-1 + 
                2.5*^-9*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                  (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(-1 + 
                  3*Cos[2*theta])))*(-9.*^-8*(-0.75/(E^(4.*r^2)*r^3) - 
                (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Cos[theta]^2*
               Sin[theta]^2 - (3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
                (1 + 3*Cos[2*theta])*(-1 + 3.0000000000000004*^-8*
                  (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) - 
                 7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                   (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2))/
               2) + (3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 - 
                3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                  (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)))/r^4) + ((2.625/(E^(4.*r^2)*r^3) + 
                   (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1.*^-8 - 
                   3.0000000000000004*^-8*Cos[2*theta]))/4) + 
              3.0000000000000004*^-8*(-0.75/(E^(4.*r^2)*r^3) - 
                (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Cos[2*theta])*
             (-8 + 3.6*^-15*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*(1 + 
                3*Cos[2*theta]) - 6.000000000000001*^-8*(2.625/(E^(4.*r^2)*
                  r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
              3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                    E^(4.*r^2)))/r^4)*(4 - 12*Cos[2*theta] - 
                3.0000000000000004*^-8*(2.625/(E^(4.*r^2)*r^3) + 
                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
                  3*Cos[2*theta])*Sin[theta]^2) + 1.8*^-15*
               (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
                2)))/(2 - 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + 
               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
               (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
                r^4)^2*(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(2.625/(E^(4.*r^2)*
                  r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
               Sin[theta]^2) - 4.5*^-16*(-0.75/(E^(4.*r^2)*r^3) - 
               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^
           2 - (3.0000000000000004*^-8*Cos[theta]*Sin[theta]*
           (-((((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*
                (1 - 3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                   (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
                    r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)))/r^4) + 7.500000000000001*^-9*
                  (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
               1.*^-8*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
                 ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
                (3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
                 (3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                        E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        r^2))/r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                       (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                         (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                       0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                       (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
                       (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                    (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                         ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                       ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                        E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                         8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                       0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                         (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                    (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                          0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                         E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                        ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                      (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                      ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                       E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
                       E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
                       E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                       (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                       r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                         E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                         E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                      8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 
                      0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
                         E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                        (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*Sin[theta]^2)/
                  4))*(2 - 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + 
                  (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) + 
               1.5000000000000002*^-8*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
               3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)))/r^4)*(-1 + 3*Cos[2*theta] + 
                 7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                   (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
                   3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
                (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                     E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
                Sin[2*theta]^2)) - r*(((-30*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^5 + (15*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^4 + (30*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 - 
                (5*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 + 
                (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
                   E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
                    (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 
                     2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 
                     2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                   (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
                    (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r^2)*(1 - 
                3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                  (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)))/r^4) + 7.500000000000001*^-9*
                 (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                  (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) - 
              1.*^-8*((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(
                3*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
                  ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
                (3*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                   (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                        ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                      ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                       (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                       (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                        (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                   (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                          0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                        E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                       ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                     (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                      E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
                        E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
                       (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                        E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
                  Sin[theta]^2)/4) + 1.*^-8*(3.75/(E^(4.*r^2)*r^4) + 
                (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 - (5*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(
                3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
                (3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                   (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                        ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                      ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                       (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                       (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                        (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                   (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                          0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                        E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                       ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                     (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                      E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
                        E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
                       (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                        E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
                  Sin[theta]^2)/4) + 1.*^-8*(-0.75/(E^(4.*r^2)*r^3) - 
                (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
                3*((15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^5 - (6*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^4 - (15*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3) - 
                (3*((105*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^5 - (48*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^4 - (105*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + 
                   (13*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                        ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                      ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                       (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                       (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                        (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 - 
                   (3*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 
                         8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*
                       ((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                         E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                         E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
                        (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 
                         2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 
                          8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.25*r) + 
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                      2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                         E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 
                      0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
                         E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
                        (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                         E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2))))/
                    r^2 + (0. + 32./E^(4.*r^2) + 0.25*(-8.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r)) - 8.*(-4./E^(4.*r^2) + ((0.25*(0. - 8.*r) - 
                          8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2)) - 
                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     1.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2)) - 8.*(-4./E^(4.*r^2) + 
                       ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2)) + 
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 
                     8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. + 0.25*r)) - 8.*
                      (0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                          E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 
                          0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                         8.*r)*(0. + 0.25*r)) + ((-8.*(0.25*(0. - 8.*r) - 
                          8.*(0. + 0.25*r)) - 4.*(0. - 8.*r))*(0. - 8.*r))/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                     ((-4.*(0. - 8.*r) - 8.*(0.25*(0. - 8.*r) - 2.*r))*
                       (0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r) + ((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                      (0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. - 
                         8.*r) - 2.*r) + (128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                     0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                        E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                        E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                     (32.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.25*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*(0. - 8.*r)*r - 8.*(0.25*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 0.5*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r) + 0.125*r^2*(-5120./E^(4.*r^2) + 
                       128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 
                       24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                       (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                        E^(4.*r^2)) + 1.*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^
                          2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                       (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 0.5*r*(0. + 
                       (384.*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. - 8.*r)^3)/
                        E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + (384.*(0. - 8.*r)^
                          2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/
                        E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                         (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2)/4))*
             (2 - 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*(1 + 
                3*Cos[2*theta]) + 1.5000000000000002*^-8*(2.625/(E^(4.*r^2)*
                  r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
              3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                    E^(4.*r^2)))/r^4)*(-1 + 3*Cos[2*theta] + 
                7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
                  3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
               (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
                2) + 1.*^-8*r*(((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(1 - 
                3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                  (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)))/r^4) + 7.500000000000001*^-9*
                 (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                  (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
              1.*^-8*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
                3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
                (3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                   (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                        ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                      ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                       (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                       (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                        (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                   (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                          0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                        E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                       ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                     (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                      E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
                        E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
                       (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                        E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
                  Sin[theta]^2)/4))*((3*(-13.125/(E^(4.*r^2)*r^4) - 
                 (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                 (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)))/r)*(2 + 3.0000000000000004*^-8*
                  (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
              3*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(-1 + 
                3*Cos[2*theta] - 6.000000000000001*^-8*(0.375/(E^(4.*r^2)*
                    r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
                   r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) + 
                7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
                  3*Cos[2*theta])*Sin[theta]^2) - 9.*^-8*(-0.75/(E^(4.*r^2)*
                  r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
                3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Sin[2*theta]^2)))/
          (2 - 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(2.625/(E^(4.*r^2)*
                  r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
               Sin[theta]^2) - 4.5*^-16*(-0.75/(E^(4.*r^2)*r^3) - 
               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^
           2) + r^2*(1 - 3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
           (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
             (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
               (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
           (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
            r^4) + 7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
           (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
              (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
           (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^
                (4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
              (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
              0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                 E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
              (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
           (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                 (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
             (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(
                0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
             (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
              (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
               (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
               (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 
             0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^
                 4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                 r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
        ((5.*^-9*(-9.*^-8*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^4)*((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                  E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^
                4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^2)*Cos[theta]^2*Sin[theta]^2 - 
            (3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
              (1 + 3*Cos[2*theta])*(-1 + 3.0000000000000004*^-8*
                (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) - 
               7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2))/2)*
           (r*(2 - 3.0000000000000004*^-8*r*(-1.875/(E^(4.*r^2)*r^4) - 
                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
              6.000000000000001*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                    E^(4.*r^2)))/r^4) + 1.5000000000000002*^-8*(
                2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
              7.500000000000001*^-9*r*(-13.125/(E^(4.*r^2)*r^4) - 
                (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                   (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                      0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
                   E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
                    (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 
                     2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 
                     2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                   (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
                    (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
               Sin[theta]^2)*(-1 + 3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*
                  r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
                 r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                    E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)) + 
            1.35*^-15*r*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^4)*Sin[2*theta]^2))/
          (r^2*(9.*^-16*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]^2 - 
            (1 - 3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                    E^(4.*r^2)))/r^4) + 7.500000000000001*^-9*(
                2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
             (1 + 3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                    E^(4.*r^2)))/r^4)*(2 - 3*Sin[theta]^2)))*
           (2 - 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(2.625/(E^(4.*r^2)*
                  r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
               Sin[theta]^2) - 4.5*^-16*(-0.75/(E^(4.*r^2)*r^3) - 
               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
             Sin[2*theta]^2)) - 
         (5.*^-9*((3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
              (2 + 3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))/2 + 
            3*Sin[theta]^2*(3.0000000000000004*^-8*(-0.75/(E^(4.*r^2)*r^3) - 
                (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Cos[theta]^2 + 
              (((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                 (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)))/r)*(-1 + 3.0000000000000004*^-8*
                  (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
                  (-2 + 3*Sin[theta]^2)))/4))*
           (r*(2 - 3.0000000000000004*^-8*r*(-1.875/(E^(4.*r^2)*r^4) - 
                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
              6.000000000000001*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                    E^(4.*r^2)))/r^4) + 1.5000000000000002*^-8*(
                2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
              7.500000000000001*^-9*r*(-13.125/(E^(4.*r^2)*r^4) - 
                (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                   (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                      0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
                   E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
                    (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 
                     2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 
                     2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                   (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
                    (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
               Sin[theta]^2)*(-1 + 3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*
                  r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
                 r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                    E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)) + 
            1.35*^-15*r*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^4)*Sin[2*theta]^2))/
          (r^2*(9.*^-16*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]^2 - 
            (1 - 3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                    E^(4.*r^2)))/r^4) + 7.500000000000001*^-9*(
                2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
             (1 + 3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                    E^(4.*r^2)))/r^4)*(2 - 3*Sin[theta]^2)))*
           (-2 + 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r)*Sin[theta]^2 - 6.000000000000001*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (1 - 3*Sin[theta]^2 + 3.7500000000000005*^-9*(2.625/(E^(4.*r^2)*
                  r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
               Sin[theta]^2) + 4.5*^-16*(-0.75/(E^(4.*r^2)*r^3) - 
               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
             Sin[2*theta]^2)) - (4.5*^-16*Cos[theta]^2*
           (-3.0000000000000004*^-8*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 + 
              (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^5)*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^4)*(1 + 3*Cos[2*theta]) + 
            ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - 
              (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^2)*(2 + 3.0000000000000004*^-8*(
                0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])))*Sin[theta]^2*(6.000000000000001*^-8*
             (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)))/r^4)^2*Cos[2*theta] - 
            ((2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r)*(2 + 3.0000000000000004*^-8*
                (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
                (1 + 3*Cos[2*theta])))/4 + (-0.75/(E^(4.*r^2)*r^3) - 
              (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
              ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (2 - 3.0000000000000004*^-8*r*(-1.875/(E^(4.*r^2)*r^4) - 
                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
              6.000000000000001*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                    E^(4.*r^2)))/r^4) + 1.5000000000000002*^-8*(
                2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
              7.500000000000001*^-9*r*(-13.125/(E^(4.*r^2)*r^4) - 
                (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                   (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                      0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
                   E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
                    (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 
                     2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 
                     2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                   (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
                    (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
               Sin[theta]^2)))/(r*(2 - 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + 
               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
               (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
                r^4)^2*(1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(2.625/(E^(4.*r^2)*
                  r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
               Sin[theta]^2) - 4.5*^-16*(-0.75/(E^(4.*r^2)*r^3) - 
               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
           (-2 + 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r)*Sin[theta]^2 - 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(2.625/(E^(4.*r^2)*
                  r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
               Sin[theta]^2) + 4.5*^-16*(-0.75/(E^(4.*r^2)*r^3) - 
               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
             Sin[2*theta]^2)) + (2.25*^-16*Cos[theta]*
           (4*r*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^2) - 1.8*^-7*(0.375/(E^(4.*r^2)*r^3) + 
               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
               (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
                r^4)^2*(1 + 3*Cos[2*theta]) - (-0.75/(E^(4.*r^2)*r^3) - 
              (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
              ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-4 + 3.0000000000000004*^-8*r*(-1.875/(E^(4.*r^2)*r^4) - 
                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 + 
                3*Cos[2*theta])) + 6*(0.375/(E^(4.*r^2)*r^3) + 
              (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
              (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^4)*(-2 + 1.*^-8*(-0.75/(E^(4.*r^2)*r^3) - 
                (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta]) + 1.*^-8*r*(3.75/(E^(4.*r^2)*r^4) + 
                (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 - (5*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(1 + 
                3*Cos[2*theta])))*Sin[theta]*
           (((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - 
              (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^2)*(1 - 3.0000000000000004*^-8*(
                0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 
              7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
            1.*^-8*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^4)*(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
              (3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                 (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)))/r)*Sin[theta]^2)/4))*Sin[2*theta])/
          (r*(2 - 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(2.625/(E^(4.*r^2)*
                  r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
               Sin[theta]^2) - 4.5*^-16*(-0.75/(E^(4.*r^2)*r^3) - 
               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
           (-2 + 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r)*Sin[theta]^2 - 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(2.625/(E^(4.*r^2)*
                  r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
               Sin[theta]^2) + 4.5*^-16*(-0.75/(E^(4.*r^2)*r^3) - 
               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
             Sin[2*theta]^2)) + (1.5000000000000002*^-8*
           (3.0000000000000004*^-8*(9.*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)))/r^4)^2 + (2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)/4 - 
              3.0000000000000004*^-8*(-0.75/(E^(4.*r^2)*r^3) - 
                 (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[
                2*theta] + 3*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-1 + 
                2.5*^-9*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                  (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(-1 + 
                  3*Cos[2*theta])))*(-3.0000000000000004*^-8*(
                (-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(
                -0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta]) + ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(2 + 
                3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                  (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))*
             Sin[2*theta]^2 + Cos[theta]^2*(-3.0000000000000004*^-8*(
                (-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(
                -0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta]) + ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(2 + 
                3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                  (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))*
             (-2 + 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*(1 + 
                3*Cos[2*theta]) - 1.5000000000000002*^-8*(2.625/(E^(4.*r^2)*
                  r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 
              3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                    E^(4.*r^2)))/r^4)*(-1 + 3*Cos[2*theta] + 
                7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
                  3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
               (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
                2) - (-3.0000000000000004*^-8*((-3*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(
                -0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta]) + ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(2 + 
                3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                  (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
             (-2 + 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*(1 + 
                3*Cos[2*theta]) - 1.5000000000000002*^-8*(2.625/(E^(4.*r^2)*
                  r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 
              3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                    E^(4.*r^2)))/r^4)*(-1 + 3*Cos[2*theta] + 
                7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
                  3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
               (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
                2) + 6.000000000000001*^-8*(3*((-3*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(
                -0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) - 
              3*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2))*Cos[theta]*
             Sin[theta]*Sin[2*theta]*(-2 + 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + 
                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) - 
              1.5000000000000002*^-8*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 
              3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                    E^(4.*r^2)))/r^4)*(-1 + 3*Cos[2*theta] + 
                7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
                  3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
               (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
                2)))/(r*(2 - 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + 
                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                    E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) + 
             1.5000000000000002*^-8*(2.625/(E^(4.*r^2)*r^3) + 
               (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
               (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
              (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
              (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
                 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
              (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
              Sin[2*theta]^2)^2) - 
         (2.5*^-9*(2*(9.000000000000001*^-8*((-3*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(-1.875/
                 (E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 + 
                3*Cos[2*theta]) + 3*((15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^5 - (6*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^4 - (15*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3)*(2 + 
                3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                  (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])) + 
              6*Sin[theta]^2*(3.0000000000000004*^-8*(3.75/(E^(4.*r^2)*r^4) + 
                  (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^4 - (5*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*
                 ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Cos[theta]^2 + 
                3.0000000000000004*^-8*(-0.75/(E^(4.*r^2)*r^3) - 
                  (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
                 ((-30*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^5 + (15*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^4 + (30*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 - 
                  (5*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                       ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 + 
                  (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                         0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                       E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                    (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                     E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                    0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                    8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                       E^(4.*r^2)))/r^2)*Cos[theta]^2 + 7.500000000000001*^-9*
                 (-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
                  ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
                 ((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                  (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                       ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                  (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                         0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                       E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                    (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                     E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                    0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                    8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                       E^(4.*r^2)))/r)*(-2 + 3*Sin[theta]^2) + 
                (((105*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^5 - (48*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^4 - (105*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + 
                   (13*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                        ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                      ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                       (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                       (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                        (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 - 
                   (3*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 
                         8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*
                       ((0.5*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                         E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                         E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
                        (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 
                         2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 
                          8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.25*r) + 
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                      2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                         E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 
                      0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
                         E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
                        (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                         E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2))))/
                    r^2 + (0. + 32./E^(4.*r^2) + 0.25*(-8.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r)) - 8.*(-4./E^(4.*r^2) + ((0.25*(0. - 8.*r) - 
                          8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2)) - 
                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     1.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2)) - 8.*(-4./E^(4.*r^2) + 
                       ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2)) + 
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 
                     8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. + 0.25*r)) - 8.*
                      (0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                          E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 
                          0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                         8.*r)*(0. + 0.25*r)) + ((-8.*(0.25*(0. - 8.*r) - 
                          8.*(0. + 0.25*r)) - 4.*(0. - 8.*r))*(0. - 8.*r))/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                     ((-4.*(0. - 8.*r) - 8.*(0.25*(0. - 8.*r) - 2.*r))*
                       (0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r) + ((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                      (0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. - 
                         8.*r) - 2.*r) + (128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                     0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                        E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                        E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                     (32.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.25*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*(0. - 8.*r)*r - 8.*(0.25*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 0.5*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r) + 0.125*r^2*(-5120./E^(4.*r^2) + 
                       128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                         8.*r) + (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 
                       24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                       (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                        E^(4.*r^2)) + 1.*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^
                          2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                       (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 0.5*r*(0. + 
                       (384.*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. - 8.*r)^3)/
                        E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + (384.*(0. - 8.*r)^
                          2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/
                        E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                         (64.*r^2)/E^(4.*r^2))))/r)*(-1 + 
                   3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                     (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                        E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
                      r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                         E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)))/4))*
             (-2 + 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*(1 + 
                3*Cos[2*theta]) - 1.5000000000000002*^-8*(2.625/(E^(4.*r^2)*
                  r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 
              6.000000000000001*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                    E^(4.*r^2)))/r^4)*(1 - 3*Sin[theta]^2 + 
                3.7500000000000005*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
                  3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
               (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
                2) + 1.*^-8*((-3*(-13.125/(E^(4.*r^2)*r^4) - 
                 (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                 (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)))/r)*(2 + 3.0000000000000004*^-8*
                  (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
              3*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 - 
                3*Cos[2*theta] + 6.000000000000001*^-8*(0.375/(E^(4.*r^2)*
                    r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
                   r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) - 
                7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
                  3*Cos[2*theta])*Sin[theta]^2) + 9.*^-8*(-0.75/(E^(4.*r^2)*
                  r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
                3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Sin[2*theta]^2)*
             (-6*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(2 + 
                3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                  (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])) + 
              (3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                 (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)))/r)*(2 + 3.0000000000000004*^-8*
                  (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/2 - 
              9.*^-8*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Sin[2*theta]^2)))/
          (2 - 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(2.625/(E^(4.*r^2)*
                  r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
               Sin[theta]^2) - 4.5*^-16*(-0.75/(E^(4.*r^2)*r^3) - 
               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^
           2))/(2*Sqrt[2]*r) - 
     (r^2*(1 - 3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
           (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
             (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
               (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
           (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
            r^4) + 7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
           (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
              (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
           (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^
                (4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
              (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
              0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                 E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
              (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
           (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                 (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
             (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(
                0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
             (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
              (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
               (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
               (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 
             0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^
                 4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                 r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
        (-1/4*(r*(2 - 3.0000000000000004*^-8*r*(-1.875/(E^(4.*r^2)*r^4) - 
                 (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
               6.000000000000001*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)))/r^4) + 1.5000000000000002*^-8*
                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
               7.500000000000001*^-9*r*(-13.125/(E^(4.*r^2)*r^4) - 
                 (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                 (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)))/r)*Sin[theta]^2)*
              (-1 + 3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)) + 
             1.35*^-15*r*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
              (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2)^2/
           (r^4*(9.*^-16*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
                 ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^
                2*Sin[theta]^2 - (1 - 3.0000000000000004*^-8*
                 (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 
                7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*(1 + 
                3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                  (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)))/r^4)*(2 - 3*Sin[theta]^2)))^2) + 
         (7.500000000000001*^-17*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                 (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
              (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^
                (4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^
                (4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 + 
            (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
             r^5)*(1 + 3*Cos[2*theta])*
           ((3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
              (2 + 3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])))/2 + 
            3*Sin[theta]^2*(3.0000000000000004*^-8*(-0.75/(E^(4.*r^2)*r^3) - 
                (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Cos[theta]^2 + 
              (((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                 (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)))/r)*(-1 + 3.0000000000000004*^-8*
                  (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
                  (-2 + 3*Sin[theta]^2)))/4)))/
          (-2 + 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
            (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
            (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                 E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
             (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                   (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                  8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*
                 (0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 
                  2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*
                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                  E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*
                (0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*
            Sin[theta]^2 - 6.000000000000001*^-8*(0.375/(E^(4.*r^2)*r^3) + 
             (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
               (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                 (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
             (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
              r^4)*(1 - 3*Sin[theta]^2 + 3.7500000000000005*^-9*
              (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
           4.5*^-16*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^4)^2*Sin[2*theta]^2) + 
         (2.25*^-16*((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - 
            (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
               (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                E^(4.*r^2)))/r^5 + (0. - 2./E^(4.*r^2) + 
              0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
              8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
              ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^
                (4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
              0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
               r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                 E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 
              8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*
           Cos[theta]^2*(-3.0000000000000004*^-8*((-3*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 + 
              (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^5)*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^4)*(1 + 3*Cos[2*theta]) + 
            ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - 
              (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^2)*(2 + 3.0000000000000004*^-8*(
                0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])))*Sin[theta]^2)/
          (-2 + 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
            (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
            (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                 E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
             (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                   (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                  8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*
                 (0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 
                  2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*
                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                  E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*
                (0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*
            Sin[theta]^2 - 3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
             (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
               (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                 (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
             (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
              r^4)*(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
              (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
           4.5*^-16*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^4)^2*Sin[2*theta]^2) + (2.25*^-16*Cos[theta]*
           (4*r*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^2) - 1.8*^-7*(0.375/(E^(4.*r^2)*r^3) + 
               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
               (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
                r^4)^2*(1 + 3*Cos[2*theta]) - (-0.75/(E^(4.*r^2)*r^3) - 
              (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
              ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-4 + 3.0000000000000004*^-8*r*(-1.875/(E^(4.*r^2)*r^4) - 
                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 + 
                3*Cos[2*theta])) + 6*(0.375/(E^(4.*r^2)*r^3) + 
              (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
              (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^4)*(-2 + 1.*^-8*(-0.75/(E^(4.*r^2)*r^3) - 
                (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta]) + 1.*^-8*r*(3.75/(E^(4.*r^2)*r^4) + 
                (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 - (5*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(1 + 
                3*Cos[2*theta])))*Sin[theta]*
           (-1.8*^-7*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2 + 
            6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (1 + 1.*^-8*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 
              7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
            (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^4)*(-2 + 3.0000000000000004*^-8*r*(-1.875/(E^(4.*r^2)*r^4) - 
                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
              1.5000000000000002*^-8*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 
              7.500000000000001*^-9*r*(-13.125/(E^(4.*r^2)*r^4) - 
                (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                   (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                      0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
                   E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
                    (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 
                     2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 
                     2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                   (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
                    (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
               Sin[theta]^2))*Sin[2*theta])/
          (r^2*(2 - 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(2.625/(E^(4.*r^2)*
                  r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
               Sin[theta]^2) - 4.5*^-16*(-0.75/(E^(4.*r^2)*r^3) - 
               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
           (-2 + 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r)*Sin[theta]^2 - 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(2.625/(E^(4.*r^2)*
                  r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
               Sin[theta]^2) + 4.5*^-16*(-0.75/(E^(4.*r^2)*r^3) - 
               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
             Sin[2*theta]^2)) - (2.25*^-16*Cos[theta]*
           (4*r*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^2) - 1.8*^-7*(0.375/(E^(4.*r^2)*r^3) + 
               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
               (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
                r^4)^2*(1 + 3*Cos[2*theta]) - (-0.75/(E^(4.*r^2)*r^3) - 
              (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
              ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-4 + 3.0000000000000004*^-8*r*(-1.875/(E^(4.*r^2)*r^4) - 
                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 + 
                3*Cos[2*theta])) + 6*(0.375/(E^(4.*r^2)*r^3) + 
              (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
              (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^4)*(-2 + 1.*^-8*(-0.75/(E^(4.*r^2)*r^3) - 
                (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta]) + 1.*^-8*r*(3.75/(E^(4.*r^2)*r^4) + 
                (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 - (5*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(1 + 
                3*Cos[2*theta])))*Sin[theta]*(6.000000000000001*^-8*
             (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)))/r^4)^2*Cos[2*theta] - 
            ((2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r)*(2 + 3.0000000000000004*^-8*
                (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
                (1 + 3*Cos[2*theta])))/4 + (-0.75/(E^(4.*r^2)*r^3) - 
              (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
              ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (2 - 3.0000000000000004*^-8*r*(-1.875/(E^(4.*r^2)*r^4) - 
                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
              6.000000000000001*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                    E^(4.*r^2)))/r^4) + 1.5000000000000002*^-8*(
                2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
              7.500000000000001*^-9*r*(-13.125/(E^(4.*r^2)*r^4) - 
                (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                   (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                      0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
                   E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
                    (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 
                     2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 
                     2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                   (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
                    (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
               Sin[theta]^2))*Sin[2*theta])/
          (r^2*(2 - 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(2.625/(E^(4.*r^2)*
                  r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
               Sin[theta]^2) - 4.5*^-16*(-0.75/(E^(4.*r^2)*r^3) - 
               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
           (-2 + 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r)*Sin[theta]^2 - 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(2.625/(E^(4.*r^2)*
                  r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
               Sin[theta]^2) + 4.5*^-16*(-0.75/(E^(4.*r^2)*r^3) - 
               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
             Sin[2*theta]^2)) + 
         (2.5*^-9*(r*(2 - 3.0000000000000004*^-8*r*(-1.875/(E^(4.*r^2)*r^4) - 
                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
              6.000000000000001*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                    E^(4.*r^2)))/r^4) + 1.5000000000000002*^-8*(
                2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
              7.500000000000001*^-9*r*(-13.125/(E^(4.*r^2)*r^4) - 
                (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                   (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                      0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
                   E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
                    (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 
                     2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 
                     2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                   (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
                    (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
               Sin[theta]^2)*(-1 + 3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*
                  r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
                 r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                    E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)) + 
            1.35*^-15*r*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^4)*Sin[2*theta]^2)*(-3*r*(-1.875/(E^(4.*r^2)*r^4) - 
              (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
              ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
             (1 + 3*Cos[2*theta])*(1 + 7.500000000000001*^-9*(
                2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
            9.*^-8*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2 + 
            9.*^-8*r*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^4)*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^2)*Sin[2*theta]^2 + 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (3*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 + 
                3*Cos[2*theta]) - 9*(-0.75/(E^(4.*r^2)*r^3) - 
                (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^
                2)))/(r^3*(9.*^-16*(-0.75/(E^(4.*r^2)*r^3) - 
               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
             Sin[theta]^2 - (1 - 3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*
                  r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
                 r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                    E^(4.*r^2)))/r^4) + 7.500000000000001*^-9*(
                2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
             (1 + 3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                    E^(4.*r^2)))/r^4)*(2 - 3*Sin[theta]^2)))*
           (-2 + 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r)*Sin[theta]^2 - 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(2.625/(E^(4.*r^2)*
                  r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
               Sin[theta]^2) + 4.5*^-16*(-0.75/(E^(4.*r^2)*r^3) - 
               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
             Sin[2*theta]^2)) + (7.500000000000001*^-9*
           (-6.000000000000001*^-8*(9.*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)))/r^4)^2 + (2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)/4 - 
              3.0000000000000004*^-8*(-0.75/(E^(4.*r^2)*r^3) - 
                 (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[
                2*theta] + 3*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-1 + 
                2.5*^-9*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                  (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(-1 + 
                  3*Cos[2*theta])))*(-4*r*(3.75/(E^(4.*r^2)*r^4) + 
                (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 - (5*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2) + 
              1.8*^-7*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*(1 + 
                3*Cos[2*theta]) + (-0.75/(E^(4.*r^2)*r^3) - 
                (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-4 + 
                3.0000000000000004*^-8*r*(-1.875/(E^(4.*r^2)*r^4) - 
                  (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
                 (1 + 3*Cos[2*theta])) - 6*(0.375/(E^(4.*r^2)*r^3) + 
                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                    E^(4.*r^2)))/r^4)*(-2 + 1.*^-8*(-0.75/(E^(4.*r^2)*r^3) - 
                  (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
                 (1 + 3*Cos[2*theta]) + 1.*^-8*r*(3.75/(E^(4.*r^2)*r^4) + 
                  (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^4 - (5*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*
                 (1 + 3*Cos[2*theta])))*Sin[2*theta]^2 + 2*Cos[2*theta]*
             (4*r*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2) - 
              1.8*^-7*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*(1 + 
                3*Cos[2*theta]) - (-0.75/(E^(4.*r^2)*r^3) - 
                (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-4 + 
                3.0000000000000004*^-8*r*(-1.875/(E^(4.*r^2)*r^4) - 
                  (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
                 (1 + 3*Cos[2*theta])) + 6*(0.375/(E^(4.*r^2)*r^3) + 
                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                    E^(4.*r^2)))/r^4)*(-2 + 1.*^-8*(-0.75/(E^(4.*r^2)*r^3) - 
                  (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
                 (1 + 3*Cos[2*theta]) + 1.*^-8*r*(3.75/(E^(4.*r^2)*r^4) + 
                  (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^4 - (5*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*
                 (1 + 3*Cos[2*theta])))*(-2 + 9.*^-16*(0.375/(E^(4.*r^2)*
                   r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
                  r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) - 
              1.5000000000000002*^-8*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 
              3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                    E^(4.*r^2)))/r^4)*(-1 + 3*Cos[2*theta] + 
                7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
                  3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
               (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
                2) + 6.000000000000001*^-8*(18*(0.375/(E^(4.*r^2)*r^3) + 
                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)))/r^4)^2 + 3*r*(-1.875/(E^(4.*r^2)*r^4) - 
                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(
                -0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) - 
              6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
                -0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                r*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - 
                  (5*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)))*Sin[2*theta]^2*
             (-2 + 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*(1 + 
                3*Cos[2*theta]) - 1.5000000000000002*^-8*(2.625/(E^(4.*r^2)*
                  r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 
              3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                    E^(4.*r^2)))/r^4)*(-1 + 3*Cos[2*theta] + 
                7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
                  3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
               (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
                2)))/(r^2*(2 - 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + 
                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                    E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) + 
             1.5000000000000002*^-8*(2.625/(E^(4.*r^2)*r^3) + 
               (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
               (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
              (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
              (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
                 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
              (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
              Sin[2*theta]^2)^2) - 
         (-2*(9.*^-16*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
              Sin[theta]^2 - (1 - 3.0000000000000004*^-8*
                (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 
               7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
              (1 + 3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)))/r^4)*(2 - 3*Sin[theta]^2)))*
            (r*(2 - 3.0000000000000004*^-8*r*(-1.875/(E^(4.*r^2)*r^4) - 
                 (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
               6.000000000000001*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)))/r^4) + 1.5000000000000002*^-8*
                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
               7.500000000000001*^-9*r*(-13.125/(E^(4.*r^2)*r^4) - 
                 (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                 (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)))/r)*Sin[theta]^2)*
              (-1 + 3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)) + 
             1.35*^-15*r*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
              (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2) + 
           r*(9.*^-16*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
              Sin[theta]^2 - (1 - 3.0000000000000004*^-8*
                (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 
               7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
              (1 + 3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)))/r^4)*(2 - 3*Sin[theta]^2)))*
            (3.0000000000000004*^-8*r*(-1.875/(E^(4.*r^2)*r^4) - 
               (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
              (-2 + 3*Sin[theta]^2)*(2 - 3.0000000000000004*^-8*r*
                (-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
                 ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
               6.000000000000001*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)))/r^4) + 1.5000000000000002*^-8*
                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
               7.500000000000001*^-9*r*(-13.125/(E^(4.*r^2)*r^4) - 
                 (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                 (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)))/r)*Sin[theta]^2) + 
             (2 - 3.0000000000000004*^-8*r*(-1.875/(E^(4.*r^2)*r^4) - 
                 (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
               6.000000000000001*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)))/r^4) + 1.5000000000000002*^-8*
                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
               7.500000000000001*^-9*r*(-13.125/(E^(4.*r^2)*r^4) - 
                 (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                 (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)))/r)*Sin[theta]^2)*
              (-1 + 3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)) + 
             1.*^-8*r*(-9*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
                 ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 3*r*
                (11.25/(E^(4.*r^2)*r^5) + (39*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^5 - 
                 (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^4 - (90*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3) + 
               (9*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
                  (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                  (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                       ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                  (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                         0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                       E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                    (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                     E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                    0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                    8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                       E^(4.*r^2)))/r)*Sin[theta]^2)/4 + (3*r*
                 (78.75/(E^(4.*r^2)*r^5) + (297*(0.25/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^5 - 
                  (87*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^4 - (630*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + 
                  (19*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                       ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 - 
                  (4*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                         3/E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                          0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                        E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                       ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                     (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                      E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
                        E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
                       (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                        E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2))))/r^2 + 
                  (0. + 32./E^(4.*r^2) + 0.25*(-8.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                        8.*r)) - 8.*(-4./E^(4.*r^2) + ((0.25*(0. - 8.*r) - 
                         8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2)) - 
                    12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    1.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2)) - 8.*(-4./E^(4.*r^2) + 
                      ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2)) + 
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 
                    8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*(0. + 0.25*r)) - 8.*
                     (0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                         E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
                        (0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 
                        0.25*r)) + ((-8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                          0.25*r)) - 4.*(0. - 8.*r))*(0. - 8.*r))/
                     E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                    ((-4.*(0. - 8.*r) - 8.*(0.25*(0. - 8.*r) - 2.*r))*
                      (0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r) + ((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                     (0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0.25*(0. - 
                        8.*r) - 2.*r) + (128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                    0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                    (32.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.25*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*(0. - 8.*r)*r - 8.*(0.25*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + 0.25*((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r) - 
                    8.*(-2./E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r) + 0.125*r^2*(-5120./E^(4.*r^2) + 
                      128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                      (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                      (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                       E^(4.*r^2)) + 1.*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^
                         2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                      (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 0.5*r*(0. + 
                      (384.*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. - 8.*r)^3)/
                       E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + (384.*(0. - 8.*r)^
                         2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/
                       E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                        (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2)/4)*
              (-1 + 3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)) + 
             1.35*^-15*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)))/r^5)*(-0.75/(E^(4.*r^2)*r^3) - 
               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2 + 
             1.35*^-15*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
              (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2 + 
             1.35*^-15*r*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
              (3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 
                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^2)*Sin[2*theta]^2) - 
           r*(r*(2 - 3.0000000000000004*^-8*r*(-1.875/(E^(4.*r^2)*r^4) - 
                 (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
               6.000000000000001*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)))/r^4) + 1.5000000000000002*^-8*
                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
               7.500000000000001*^-9*r*(-13.125/(E^(4.*r^2)*r^4) - 
                 (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                 (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)))/r)*Sin[theta]^2)*
              (-1 + 3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)) + 
             1.35*^-15*r*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
              (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2)*
            (3.0000000000000004*^-8*(-1.875/(E^(4.*r^2)*r^4) - 
               (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
              (-2 + 3*Sin[theta]^2)*(1 - 3.0000000000000004*^-8*
                (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 
               7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
             1.*^-8*(3*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
                 ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
               (3*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
                  (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                  (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                       ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                  (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                         0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                       E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                    (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                     E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                    0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                    8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                       E^(4.*r^2)))/r)*Sin[theta]^2)/4)*
              (1 + 3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)))/r^4)*(2 - 3*Sin[theta]^2)) + 
             4.5*^-16*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)))/r^4)*(3.75/(E^(4.*r^2)*r^4) + 
               (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                r^4 - (5*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + (0. - 
                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^2)*Sin[2*theta]^2))/
          (2*r^3*(-9.*^-16*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
              Sin[theta]^2 + (1 - 3.0000000000000004*^-8*
                (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 
               7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
              (1 + 3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)))/r^4)*(2 - 3*Sin[theta]^2)))^2)) - 
       3.0000000000000004*^-8*r*(-0.75/(E^(4.*r^2)*r^3) - 
         (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
            (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
              (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
         ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
           ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
           0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
           (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
           0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
            r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
             E^(4.*r^2)))/r^4)*Cos[theta]*Sin[theta]*
        ((1.5000000000000002*^-16*r*((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                 (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*r^2))/r^4 - (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
               (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                 (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
                E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                 (0. - 8.*r)^3/E^(4.*r^2))*r^2))/r^3 - 
            (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
             r^5 + (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                 8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
              (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
              0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
               r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                 E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 
              8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*
           Cos[theta]*Sin[theta]*(-9.*^-8*(-0.75/(E^(4.*r^2)*r^3) - 
              (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
              ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             ((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - 
              (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^2)*Cos[theta]^2*Sin[theta]^2 - 
            (3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
              (1 + 3*Cos[2*theta])*(-1 + 3.0000000000000004*^-8*
                (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) - 
               7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2))/2))/
          (2 - 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
            (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
            (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                 E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
             (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                   (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                  8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*
                 (0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 
                  2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*
                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                  E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*
                (0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*
            Sin[theta]^2 + 3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
             (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
               (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                 (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
             (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
              r^4)*(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
              (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
           4.5*^-16*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^4)^2*Sin[2*theta]^2) - 
         (2.25*^-16*r*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
            ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
              ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
              0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
              (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/
                 E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^3 + 
            (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
             r^5)*Cos[theta]*(1 + 3*Cos[2*theta])*Sin[theta]*
           (((6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 - 
              (3*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^3 - (6*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^2)*(1 - 3.0000000000000004*^-8*(
                0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 
              7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
            1.*^-8*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^4)*(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
              (3*((-21*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 + (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^3 + (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                 (2*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)))/r)*Sin[theta]^2)/4)))/
          (2 - 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
            (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
            (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                 E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
             (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                   (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                  8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*
                 (0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 
                  2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*
                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                  E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*
                (0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*
            Sin[theta]^2 + 3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
             (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
               (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                 (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
             (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
              r^4)*(-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
              (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
           4.5*^-16*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^4)^2*Sin[2*theta]^2) + (1.5000000000000002*^-8*Cos[theta]*
           Sin[theta]*(-1.8*^-7*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2 + 
            6*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (1 + 1.*^-8*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 
              7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
            (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^4)*(-2 + 3.0000000000000004*^-8*r*(-1.875/(E^(4.*r^2)*r^4) - 
                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
              1.5000000000000002*^-8*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 
              7.500000000000001*^-9*r*(-13.125/(E^(4.*r^2)*r^4) - 
                (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                   (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                      0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
                   E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
                    (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 
                     2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 
                     2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                   (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
                    (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
               Sin[theta]^2))*(r*(2 - 3.0000000000000004*^-8*r*(
                -1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
              6.000000000000001*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                    E^(4.*r^2)))/r^4) + 1.5000000000000002*^-8*(
                2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
              7.500000000000001*^-9*r*(-13.125/(E^(4.*r^2)*r^4) - 
                (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                   (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                      0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
                   E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
                    (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 
                     2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 
                     2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                   (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
                    (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
               Sin[theta]^2)*(-1 + 3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*
                  r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
                 r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                    E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)) + 
            1.35*^-15*r*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/
                 E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^2)/r^2 + 
              (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^4)*Sin[2*theta]^2))/
          (r^2*(9.*^-16*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                 (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]^2 - 
            (1 - 3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                    E^(4.*r^2)))/r^4) + 7.500000000000001*^-9*(
                2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
             (1 + 3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                    E^(4.*r^2)))/r^4)*(2 - 3*Sin[theta]^2)))*
           (2 - 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(2.625/(E^(4.*r^2)*
                  r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
               Sin[theta]^2) - 4.5*^-16*(-0.75/(E^(4.*r^2)*r^3) - 
               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
             Sin[2*theta]^2)) + (7.500000000000001*^-9*
           (4*r*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^2) - 1.8*^-7*(0.375/(E^(4.*r^2)*r^3) + 
               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
               (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
                r^4)^2*(1 + 3*Cos[2*theta]) - (-0.75/(E^(4.*r^2)*r^3) - 
              (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
              ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-4 + 3.0000000000000004*^-8*r*(-1.875/(E^(4.*r^2)*r^4) - 
                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 + 
                3*Cos[2*theta])) + 6*(0.375/(E^(4.*r^2)*r^3) + 
              (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
              (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
               r^4)*(-2 + 1.*^-8*(-0.75/(E^(4.*r^2)*r^3) - 
                (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta]) + 1.*^-8*r*(3.75/(E^(4.*r^2)*r^4) + 
                (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 - (5*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(1 + 
                3*Cos[2*theta])))*(1.8*^-15*(0.375/(E^(4.*r^2)*r^3) + 
               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
               (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
                r^4)^2 + (1 + 7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2)*
             (2 - 3.0000000000000004*^-8*r*(-1.875/(E^(4.*r^2)*r^4) - 
                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) + 
              1.5000000000000002*^-8*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
              7.500000000000001*^-9*r*(-13.125/(E^(4.*r^2)*r^4) - 
                (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                   (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                      0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
                   E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
                    (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 
                     2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 
                     2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                   (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
                    (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
               Sin[theta]^2) - 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (4 - 3.0000000000000004*^-8*r*(-1.875/(E^(4.*r^2)*r^4) - 
                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) + 
              6.000000000000001*^-8*(-0.75/(E^(4.*r^2)*r^3) - 
                (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*Cos[2*theta] + 
              3.0000000000000004*^-8*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
              7.500000000000001*^-9*r*(-13.125/(E^(4.*r^2)*r^4) - 
                (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                   (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                      0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)))/
                   E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2)) - (12.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
                    (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 
                     2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 
                     2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                   (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
                    (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
               Sin[theta]^2) + 6.000000000000001*^-8*(-0.75/(E^(4.*r^2)*
                r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                  E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^
                3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(Cos[2*theta] - 
              7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^4))*
           Sin[2*theta])/(r*(-2 + 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + 
               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
               (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/
                r^4)^2*(1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r)*Sin[theta]^2 - 6.000000000000001*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (1 - 3*Sin[theta]^2 + 3.7500000000000005*^-9*(2.625/(E^(4.*r^2)*
                  r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
               Sin[theta]^2) + 4.5*^-16*(-0.75/(E^(4.*r^2)*r^3) - 
               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
           (-2 + 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) - 1.5000000000000002*^-8*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r)*Sin[theta]^2 - 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(2.625/(E^(4.*r^2)*
                  r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
               Sin[theta]^2) + 4.5*^-16*(-0.75/(E^(4.*r^2)*r^3) - 
               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
             Sin[2*theta]^2)) - (3.0000000000000004*^-8*Cos[theta]*Sin[theta]*
           (((4.5000000000000006*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)))/r^4)*(-13.125/(E^(4.*r^2)*r^4) - 
                 (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                 (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)))/r)*Sin[theta]^2 + 3*(-1.875/(E^(4.*r^2)*
                   r^4) - (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
                (2 - 1.2000000000000002*^-7*(0.375/(E^(4.*r^2)*r^3) + 
                   (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
                    r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)))/r^4) + 3.0000000000000004*^-8*
                  (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 
                 1.*^-8*r*(3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^4 - (5*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2) + 
                 1.5000000000000002*^-8*(2.625/(E^(4.*r^2)*r^3) + 
                   (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
               (3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/
                     E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*(-2 + 
                 6.000000000000001*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                   (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
                    r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)))/r^4) - 1.5000000000000002*^-8*
                  (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 
                 7.500000000000001*^-9*r*(-13.125/(E^(4.*r^2)*r^4) - 
                   (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                   (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                        ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                      ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                       (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                       (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                        (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                   (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                          0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                        E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                       ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                     (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                      E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 8.*r))/
                        E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r) + 0.5*r*(192./E^(4.*r^2) - 
                       (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                        E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*
                  Sin[theta]^2) + 1.*^-8*(-0.75/(E^(4.*r^2)*r^3) - 
                 (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
                ((-9*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
                       ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                     r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                       (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                         (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                       0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                       (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
                       (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                    (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                         ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                       ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                        E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                         8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                       0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                         (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                    (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                          0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                         E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                        ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                      (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                      ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                       E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/
                       E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/
                       E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. + 0.25*r) + ((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                       (0. + 0.25*r) - 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r + 0.25*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                       r + 0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                         E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                         E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                      8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r) + 
                      0.5*r*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
                         E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                        (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)))/r)*Sin[theta]^2)/
                  4 + r*(3*(11.25/(E^(4.*r^2)*r^5) + (39*(0.25/E^(4.*r^2) + 
                        ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                        (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                      r^5 - (9*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                        (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                          (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                        0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                        (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^2))/r^4 - (90*((0.25*r)/E^(4.*r^2) + 
                        (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + 
                     (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                          (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                          8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                       (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                         (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                         8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                       0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                         (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^3) - 
                   (3*(78.75/(E^(4.*r^2)*r^5) + (297*(0.25/E^(4.*r^2) + 
                         ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                         (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                       r^5 - (87*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                         (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                          (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                         0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                         (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^2))/r^4 - (630*((0.25*r)/E^(4.*r^2) + 
                         (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^6 + 
                      (19*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                          ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                         ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                          E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r)*(0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                         0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                          (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^3 - 
                      (4*(0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 
                          8.*(0. + 0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 
                          8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                          ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                         (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*
                          (0. - 8.*r)^2)/E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 
                          2.*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0.25*(0. - 
                          8.*r) - 2.*r))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.25*r) + 
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                         2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                         0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r + 
                         0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(0. - 8.*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 8.*((0.5*(0. - 
                          8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*(192./
                          E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*
                          r)/E^(4.*r^2))))/r^2 + (0. + 32./E^(4.*r^2) + 
                        0.25*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)) - 
                        8.*(-4./E^(4.*r^2) + ((0.25*(0. - 8.*r) - 8.*(0. + 
                          0.25*r))*(0. - 8.*r))/E^(4.*r^2)) - 12.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        1.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 
                        8.*(-4./E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 
                          2.*r))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                         (0.25*(0. - 8.*r) - 8.*(0. + 0.25*r)) - 
                        8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. + 0.25*r)) - 
                        8.*(0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                          E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*
                          r))*(0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 
                          0.25*r)) + ((-8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                          0.25*r)) - 4.*(0. - 8.*r))*(0. - 8.*r))/
                         E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                        ((-4.*(0. - 8.*r) - 8.*(0.25*(0. - 8.*r) - 2.*r))*
                          (0. - 8.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0.25*(0. - 8.*r) - 
                          8.*(0. + 0.25*r))*(0. - 8.*r) + ((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                         (0.25*(0. - 8.*r) - 2.*r) + (-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                         (0.25*(0. - 8.*r) - 2.*r) + (128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*
                         (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                        (32.*(0. - 8.*r)*r)/E^(4.*r^2) + 0.25*(128./
                          E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*r - 
                        8.*(0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + 0.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r) - 8.*(-2./E^(4.*r^2) + 
                          0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 0.25*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r) + 0.125*r^2*(-5120./E^(4.*r^2) + 
                          128.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2)) - 16.*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) + (1536.*(0. - 8.*r)^2)/
                          E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/
                          E^(4.*r^2) + (0. - 8.*r)^6/E^(4.*r^2) - 
                          (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) + 1.*
                         (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*
                          r)/E^(4.*r^2)) + 0.5*r*(0. + (384.*(0. - 8.*r))/
                          E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - 
                          (3072.*r)/E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/
                          E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 
                          24.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/
                          E^(4.*r^2))))/r)*Sin[theta]^2)/4)))*
              (-4 + 1.8*^-15*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                  (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) - 
               3.0000000000000004*^-8*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 + 
               1.5000000000000002*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)))/r^4)*(4 - 12*Cos[2*theta] - 
                 3.0000000000000004*^-8*(2.625/(E^(4.*r^2)*r^3) + 
                   (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
                   3*Cos[2*theta])*Sin[theta]^2) + 9.*^-16*
                (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                     E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
                Sin[2*theta]^2))/2 + 1.*^-8*(-1.8*^-7*(0.375/(E^(4.*r^2)*
                   r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
                  r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)))/r^4)^2 + 6*(0.375/(E^(4.*r^2)*r^3) + 
                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                    E^(4.*r^2)))/r^4)*(1 + 1.*^-8*(-0.75/(E^(4.*r^2)*r^3) - 
                  (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4) + 
                7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
              (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-2 + 
                3.0000000000000004*^-8*r*(-1.875/(E^(4.*r^2)*r^4) - 
                  (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) - 
                1.5000000000000002*^-8*(2.625/(E^(4.*r^2)*r^3) + 
                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 
                7.500000000000001*^-9*r*(-13.125/(E^(4.*r^2)*r^4) - 
                  (48*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^4 + (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                  (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                       ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                     ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                  (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                         0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                       E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                    (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                     E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                    0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                    8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                     (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                       E^(4.*r^2)))/r)*Sin[theta]^2))*
             ((3*(-13.125/(E^(4.*r^2)*r^4) - (48*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^4 + 
                 (13*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^3 + (105*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 - 
                 (3*(0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
                    ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2))))/r^2 + 
                 (0. + 1.25*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (8.*(0.25*(0. - 8.*r) - 8.*(0. + 
                        0.25*r)))/E^(4.*r^2) - 8.*((0.5*(0. - 8.*r))/
                      E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2)) - 
                   (12.*(0. - 8.*r))/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                   ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r)^2)/
                    E^(4.*r^2) - (8.*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.25*r) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) - 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   0.25*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r + 0.25*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r + 
                   0.125*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^2 - 
                   8.*((0.5*(0. - 8.*r))/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r) + 0.5*r*
                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)))/r)*(2 + 3.0000000000000004*^-8*
                  (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
              3*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(-1 + 
                3*Cos[2*theta] - 6.000000000000001*^-8*(0.375/(E^(4.*r^2)*
                    r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2)/
                   r^3 - (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) + 
                7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
                  3*Cos[2*theta])*Sin[theta]^2) - 9.*^-8*(-0.75/(E^(4.*r^2)*
                  r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
                3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Sin[2*theta]^2)))/
          (2 - 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) + 1.5000000000000002*^-8*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
             (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*(2.625/(E^(4.*r^2)*
                  r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*
               Sin[theta]^2) - 4.5*^-16*(-0.75/(E^(4.*r^2)*r^3) - 
               (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^
           2 + (3.0000000000000004*^-8*Sin[2*theta]*
           ((3*r*(-1.875/(E^(4.*r^2)*r^4) - (6*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^4 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 + 
                ((2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1.*^-8 - 
                   3.0000000000000004*^-8*Cos[2*theta]))/4) + 
              6.000000000000001*^-8*(-0.75/(E^(4.*r^2)*r^3) - 
                 (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[
                2*theta] + 6.000000000000001*^-8*r*(-0.75/(E^(4.*r^2)*r^3) - 
                (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
                3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Cos[2*theta] - 
              3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                    E^(4.*r^2)))/r^4)*(3*r*(-1.875/(E^(4.*r^2)*r^4) - 
                  (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5) + 
                6*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
                  ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*Cos[2*theta]))*
             (-2 + 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*(1 + 
                3*Cos[2*theta]) - 1.5000000000000002*^-8*(2.625/(E^(4.*r^2)*
                  r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2 - 
              3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                    E^(4.*r^2)))/r^4)*(-1 + 3*Cos[2*theta] + 
                7.500000000000001*^-9*(2.625/(E^(4.*r^2)*r^3) + 
                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
                  3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-16*
               (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
                2) + 1.*^-8*(9.*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                 (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)))/r^4)^2 + (2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)/4 - 
              3.0000000000000004*^-8*(-0.75/(E^(4.*r^2)*r^3) - 
                 (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Cos[
                2*theta] + 3*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(-1 + 
                2.5*^-9*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                  (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(-1 + 
                  3*Cos[2*theta])))*(-3*r*(-1.875/(E^(4.*r^2)*r^4) - 
                (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*(1 + 
                3*Cos[2*theta])*(1 + 7.500000000000001*^-9*
                 (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                  (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*Sin[theta]^2) + 
              9.*^-8*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 + 
                 ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
                2 + 9.*^-8*r*(-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*(
                3.75/(E^(4.*r^2)*r^4) + (15*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^4 - (5*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^3 - (30*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2)*Sin[2*theta]^2 + 
              3.0000000000000004*^-8*(0.375/(E^(4.*r^2)*r^3) + 
                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                    E^(4.*r^2)))/r^4)*(3*r*(-1.875/(E^(4.*r^2)*r^4) - 
                  (6*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^4 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2)/r^3 + (15*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^5)*
                 (1 + 3*Cos[2*theta]) - 9*(-0.75/(E^(4.*r^2)*r^3) - 
                  (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 + ((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*Sin[2*theta]^
                  2))))/(r*(2 - 9.*^-16*(0.375/(E^(4.*r^2)*r^3) + 
                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2)/r^3 - 
                (3*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*r^2)/
                    E^(4.*r^2)))/r^4)^2*(1 + 3*Cos[2*theta]) + 
             1.5000000000000002*^-8*(2.625/(E^(4.*r^2)*r^3) + 
               (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
               (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^2 - 8.*(0.25/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r)*Sin[theta]^2 + 3.0000000000000004*^-8*
              (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                   (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2)/r^3 - (3*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)*
              (-1 + 3*Cos[2*theta] + 7.500000000000001*^-9*
                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^2 - 8.*(0.25/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2)))/r)*(1 + 
                 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-16*
              (-0.75/(E^(4.*r^2)*r^3) - (3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 + ((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2)/r^2 + (6*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4)^2*
              Sin[2*theta]^2)^2)))/(2*Sqrt[2]*r))/(Sqrt[2]*r))/2
