(((-I)*Csc[theta]*(((-1/2*I)*r*Sin[theta]*
        (1 - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
           (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
              (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
           (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^
                (4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
              (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
              0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                 E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
              (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
           (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                 (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
             (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(
                0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
             (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
              (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
               (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
               (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 
             0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^
                 4/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.*^-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 + 3*Sin[theta]^2))*
        ((-1.*^-12*((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.*^-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 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-6*(-5.*^-7*(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 
                       0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*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.*^-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 + 
                3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.*^-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 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
           (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
              (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
           (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^
                (4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
              (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
              0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                 E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
              (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
           (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                 (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
             (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(
                0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
             (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
              (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
               (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
               (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 
             0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^
                 4/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.*^-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 + 3*Sin[theta]^2))*
        ((5.*^-7*(7.5*^-7*(-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.*^-6*(-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.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.*^-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)*(-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.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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)*
             (-3 + Csc[theta]^2))^2 - 
         (5.*^-7*(-9.*^-6*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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.5*^-7*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.*^-6*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.*^-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)*
             (-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.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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)*
             (-3 + Csc[theta]^2))*(-2 + 3.*^-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 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-7*(-9.*^-6*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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.5*^-7*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.*^-6*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.*^-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)*
             (-3 + Csc[theta]^2))*(-9.*^-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)*
             ((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.*^-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) - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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)*
             (-3 + Csc[theta]^2))*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^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.5*^-6*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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*^-12*(-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.5*^-6*Cos[theta]*
           (-3.*^-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)*
             (-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.*^-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 + 3*Cos[2*theta])))*
           (1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta])))/
          (r*(7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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)*
             (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^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.5*^-6*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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*^-12*(-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.*^-6*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.5*^-6*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.*^-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) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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.*^-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)*(3*((-3*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*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.*^-6*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.*^-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.5*^-6*
                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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.5*^-7*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.*^-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 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*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.*^-12*(-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.*^-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) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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.*^-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 - 3*Sin[theta]^2)))*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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*^-12*
              (-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.5*^-6*Cos[theta]*
            (-3.*^-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)*
              (-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.*^-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 + 3*Cos[2*theta])))*Sin[theta]*
            (1.8*^-11*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^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.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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.*^-6*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.5*^-6*
                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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.5*^-7*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.*^-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)*(4 - 3.*^-6*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.*^-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] + 
               3.*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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.5*^-7*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.*^-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] - 7.5*^-7*
                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
               (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
               (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 - 3*Sin[theta]^2 + 3.75*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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*^-12*
              (-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.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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*^-12*
              (-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.5*^-7*Sin[2*theta]*
            (-8.*^-6*(9.*^-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 + (2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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.*^-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)^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*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/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.*^-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)*
                ((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.*^-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) - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                    (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                        E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                       (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                         (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                       0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                       (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                       (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                    (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                          (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                         8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                        (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                       (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                       (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        (0. - 8.*r)^4/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.*^-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.625/(E^(4.*r^2)*r^3) + 
                    (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                        E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                       (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                         (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                       0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                       (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                       (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                    (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                          (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                         8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                        (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                       (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                       (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        (0. - 8.*r)^4/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.*^-6 - 
                    3.*^-6*Cos[2*theta]))/4) + 3.*^-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)*
                ((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*^-11*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^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.*^-6*
                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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.*^-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)*
                (4 - 12*Cos[2*theta] - 3.*^-6*(2.625/(E^(4.*r^2)*r^3) + 
                   (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/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*^-11*
                (-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.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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*^-12*
              (-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.*^-6*Cos[theta]*Sin[theta]*
            (((4.5*^-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)*((-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 - 0.000012*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^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.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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                       ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                     r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                       (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                         (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                       0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                       (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                       (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                    (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                          (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                         8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                        (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                       (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                       (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        (0. - 8.*r)^4/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.*^-6*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.*^-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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
                    (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                        E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        r^2))/r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                       (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                         (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                       0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                       (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                       (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                    (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                          (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                         8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                        (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                       (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                       (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        (0. - 8.*r)^4/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.5*^-7*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.*^-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)*
                 ((-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*^-11*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^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.*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                  (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/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.5*^-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)*(4 - 12*Cos[2*theta] - 3.*^-6*
                   (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                       ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                       (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                     r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                       (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                         (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                       0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                       (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                       (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                    (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                          (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                         8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                        (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                       (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                       (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        (0. - 8.*r)^4/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.*^-12*
                 (-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.*^-6*(-0.000018*
                (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^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.*^-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) + 
                 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/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.*^-6*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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/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.5*^-7*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.*^-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 + 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.*^-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 + 3*Cos[2*theta]) + 7.5*^-7*
                  (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/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.*^-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)*
                ((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.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
               (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
               (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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*^-12*
              (-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.*^-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) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
            (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
               (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                 (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
            (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
               (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + (0.125*(0. - 8.*r)*
                 r^2)/E^(4.*r^2)))/r^4 + (0. - 2./E^(4.*r^2) + 
              0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
              8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2)) + 
              ((0.25*(0. - 8.*r) - 8.*(0. + 0.25*r))*(0. - 8.*r))/E^
                (4.*r^2) + (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
              0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
               r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                 E^(4.*r^2) + (0. - 8.*r)^4/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.*^-7*(-9.*^-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)*
              ((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.*^-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) - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/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.*^-6*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.*^-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.5*^-6*
                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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.5*^-7*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.*^-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 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*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.*^-12*(-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.*^-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) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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.*^-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 - 3*Sin[theta]^2)))*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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*^-12*
              (-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.*^-7*((3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*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.*^-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 + 3*Cos[2*theta])))/2 + 
             3*Sin[theta]^2*(3.*^-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)*
                ((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.*^-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 + 3*Sin[theta]^2)))/4))*
            (r*(2 - 3.*^-6*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.*^-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.5*^-6*
                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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.5*^-7*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.*^-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 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*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.*^-12*(-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.*^-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) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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.*^-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 - 3*Sin[theta]^2)))*(-2 + 9.*^-12*
              (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
               (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
               (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 - 3*Sin[theta]^2 + 3.75*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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*^-12*
              (-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*^-12*Cos[theta]^2*
            (-3.*^-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)*
              (-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.*^-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 + 3*Cos[2*theta])))*Sin[theta]^2*
            (-0.000018*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^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.*^-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) + 7.5*^-7*
                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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.*^-6*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.5*^-6*
                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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.5*^-7*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.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
               (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
               (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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*^-12*
              (-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.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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*^-12*
              (-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*^-12*Cos[theta]^2*
            (-3.*^-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)*
              (-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.*^-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 + 3*Cos[2*theta])))*Sin[theta]^2*
            (6.*^-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)^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.*^-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 + 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.*^-6*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.*^-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.5*^-6*
                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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.5*^-7*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.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
               (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
               (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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*^-12*
              (-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.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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*^-12*
              (-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.5*^-6*(3.*^-6*(9.*^-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 + (2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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.*^-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)^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*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/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.*^-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)*
                (-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.*^-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 + 3*Cos[2*theta])))*
              Sin[2*theta]^2 + Cos[theta]^2*(-3.*^-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)*
                (-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.*^-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 + 3*Cos[2*theta])))*
              (-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^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.5*^-6*
                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                   (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/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*^-12*
                (-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.*^-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)*
                (-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.*^-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 + 3*Cos[2*theta])))*Sin[theta]^2*
              (-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^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.5*^-6*
                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                   (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/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*^-12*
                (-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.*^-6*(3*((-3*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*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.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
                  (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^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.5*^-6*
                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                   (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/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*^-12*
                (-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.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.*^-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 + 
                3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/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*^-12*
               (-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.*^-7*r*(9.*^-12*(-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.*^-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) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/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.*^-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 - 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.*^-6*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.*^-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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/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.5*^-7*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.*^-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 + 3*Sin[theta]^2)) + 
              0.000027*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*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 + 
              0.000027*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^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.*^-6*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.*^-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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/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.5*^-7*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.*^-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 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*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.*^-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)*(1 - 3.*^-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) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/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.*^-6*(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*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.*^-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 - 3*Sin[theta]^2)) + 
              4.5*^-12*(-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.*^-12*(-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.*^-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) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/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.*^-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 - 3*Sin[theta]^2)))^2)))/
       (Sqrt[2]*r) + (-3.*^-6*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.*^-12*r*Cos[theta]*Sin[theta]*(-9.*^-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)*
             ((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.*^-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) - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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.*^-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) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.*^-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)*(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*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.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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*^-12*(-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.*^-12*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.*^-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) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.*^-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)*(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*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.*^-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 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
             (3.*^-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)*(
                (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.*^-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 + 3*Sin[theta]^2)))/4)))/
          ((2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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*^-12*(-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.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 - 3*Sin[theta]^2 + 3.75*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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*^-12*(-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.*^-6*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.*^-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) - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                   (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/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.*^-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)*
                (3*((3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*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*^-11*
                (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^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.*^-6*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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.5*^-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)*
                (4 - 12*Cos[2*theta] - 3.*^-6*(2.625/(E^(4.*r^2)*r^3) + 
                   (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/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.*^-12*
                (-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.*^-6*(((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.*^-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) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/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.*^-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)*(
                3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*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.*^-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 + 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.*^-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 + 3*Cos[2*theta]) + 7.5*^-7*
                 (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                  (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/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.*^-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)*(
                (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.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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*^-12*(-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.*^-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) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
           (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
              (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
           (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^
                (4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
              (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
              0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                 E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
              (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
           (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                 (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
             (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(
                0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
             (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
              (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
               (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
               (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 
             0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^
                 4/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.*^-12*((3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*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.*^-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 + 3*Cos[2*theta])))/2 + 
             3*Sin[theta]^2*(3.*^-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)*
                ((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.*^-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 + 3*Sin[theta]^2)))/4))^2)/
          (-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 - 3*Sin[theta]^2 + 3.75*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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*^-12*(-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*^-12*Cos[theta]^2*(-3.*^-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)*(-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.*^-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 + 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.*^-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) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.*^-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)*(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*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.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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*^-12*(-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.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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*^-12*(-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.*^-6*(((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*
                (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.*^-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 + 3*Cos[2*theta])) + 6*
                Sin[theta]^2*(3.*^-6*((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.*^-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)*
                  ((-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.5*^-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)*
                  ((-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.*^-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 + 3*Sin[theta]^
                        2)))/4))*(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
                  (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^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.5*^-6*
                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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.*^-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 - 3*Sin[theta]^2 + 3.75*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                   (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/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*^-12*
                (-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*^-7*(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.*^-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 + 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.*^-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 + 3*Cos[2*theta]))*Sin[theta]^2)/
               2 + 9.*^-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)*(
                (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.*^-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 + 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.*^-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 + 3*Cos[2*theta]) - 7.5*^-7*
                 (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                  (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/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.*^-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)*(
                (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.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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*^-12*(-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.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
           (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
              (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
           (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^
                (4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
              (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
              0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                 E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
              (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
           (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                 (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
             (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(
                0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
             (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
              (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
               (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
               (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 
             0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^
                 4/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.*^-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 + 3*Sin[theta]^2))*
        ((-5.*^-7*(-9.*^-6*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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.5*^-7*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.*^-6*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.*^-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)*
             (-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.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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)*
             (-3 + Csc[theta]^2))*(-2 + 3.*^-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 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-6*(-((3.*^-6*(-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.5*^-6*(-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.*^-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 + 3*Cos[2*theta]) + 
              1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.*^-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 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-7*(-9.*^-6*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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.5*^-7*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.*^-6*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.*^-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)*
             (-3 + Csc[theta]^2))*(-9.*^-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)*
             ((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.*^-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) - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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)*
             (-3 + Csc[theta]^2))*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^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.5*^-6*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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*^-12*(-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.5*^-6*Cos[theta]*
           (-3.*^-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)*
             (-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.*^-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 + 3*Cos[2*theta])))*
           (1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta])))/
          (r*(7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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)*
             (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^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.5*^-6*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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*^-12*(-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.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
           (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
              (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
           (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^
                (4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
              (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
              0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                 E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
              (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
           (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                 (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
             (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(
                0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
             (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
              (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
               (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
               (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 
             0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^
                 4/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.*^-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 + 3*Sin[theta]^2))*
        (-1/4*(-9.*^-6*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.5*^-6*(2.625/(E^(4.*r^2)*
                 r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.5*^-7*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.*^-6*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.*^-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)*(-3 + Csc[theta]^
                2))^2/(r^2*(7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.*^-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)*(-3 + 
                Csc[theta]^2))^2) + 
         (7.5*^-13*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                E^(4.*r^2) + (0.25*(0. - 8.*r)*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.*^-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 + 3*Cos[2*theta]) + 1.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
             (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
             (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
             (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                   (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                  8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*
                 (0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 
                  2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*
                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                  E^(4.*r^2) + (0. - 8.*r)^4/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*^-12*(2.625/(E^(4.*r^2)*r^3) + 
              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
             (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
             (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
             (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                   (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                  8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*
                 (0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 
                  2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*
                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                  E^(4.*r^2) + (0. - 8.*r)^4/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.5*^-7*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.*^-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 + 3*Cos[2*theta])*Csc[theta]^2 + 3.*^-6*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*^-12*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.000000000000001*^-12*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.*^-12*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*^-11*
              (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                   E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^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.5*^-7*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.*^-6*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.*^-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 + 3*Cos[2*theta])*Csc[theta]^4*(8 + 3.*^-6*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.5*^-6*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.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
               (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
               (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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)*(-3 + Csc[theta]^
                2))^2) + (7.5*^-7*(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) - 0.000018*(0.375/(E^(4.*r^2)*r^3) + 
               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^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.*^-6*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.*^-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)*(1 + 
                3*Cos[2*theta]) + 1.*^-6*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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta]))*
           Sin[2*theta])/(r^2*(7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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)*
             (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^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.5*^-6*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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*^-12*(-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*^-7*(-9.*^-6*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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.5*^-7*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.*^-6*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.*^-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)*
             (-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.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.*^-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)^2*Sin[2*theta]^2 + 
            9.*^-6*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.*^-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)*
             (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.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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)*
             (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^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.5*^-6*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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*^-12*(-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.*^-6*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.*^-12*Cos[theta]*Sin[theta]*(-9.*^-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)*
             ((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.*^-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) - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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)*
           (-0.000018*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^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.*^-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) + 
              7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.*^-6*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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.5*^-7*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.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^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.5*^-6*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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*^-12*(-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.*^-12*Cos[theta]*Sin[theta]*
           (-0.000018*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^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.*^-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) + 
              7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.*^-6*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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.5*^-7*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.*^-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 + 3*Cos[2*theta])))/2 + 
            3*Sin[theta]^2*(3.*^-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)*(
                (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.*^-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 + 3*Sin[theta]^2)))/4)))/
          ((2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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*^-12*(-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.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 - 3*Sin[theta]^2 + 3.75*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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*^-12*(-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.5*^-6*Cos[theta]*
           (-3.*^-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)*
             (-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.*^-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 + 3*Cos[2*theta])))*Sin[theta]*
           (1.8*^-11*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^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.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.*^-6*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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.5*^-7*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.*^-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)*(4 - 3.*^-6*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.*^-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] + 
              3.*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.5*^-7*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.*^-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] - 
              7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 - 3*Sin[theta]^2 + 3.75*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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*^-12*(-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.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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*^-12*(-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.5*^-12*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.*^-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) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.*^-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)*(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*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.5*^-7*(2.625/(E^(4.*r^2)*
                  r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.*^-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)^2*Sin[2*theta]^2 + 
            9.*^-6*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.*^-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)*
             (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.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^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.5*^-6*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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*^-12*(-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.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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*^-12*(-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.5*^-7*Sin[2*theta]*
           (-8.*^-6*(9.*^-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 + 
              (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.*^-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)^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*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                  (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/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.*^-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)*(
                (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.*^-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) - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                   (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/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.*^-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.625/(E^(4.*r^2)*r^3) + 
                   (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/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.*^-6 - 
                   3.*^-6*Cos[2*theta]))/4) + 3.*^-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)*(
                (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*^-11*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^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.*^-6*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.*^-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)*(4 - 
                12*Cos[2*theta] - 3.*^-6*(2.625/(E^(4.*r^2)*r^3) + 
                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/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*^-11*
               (-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.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^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.5*^-6*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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*^-12*(-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.*^-6*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.*^-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) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                   (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/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.*^-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)*
                (3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*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.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
                  (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^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.5*^-6*
                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                   (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/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*^-12*
                (-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.*^-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) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/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.*^-6*((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.*^-6*(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.*^-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)*(
                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.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.*^-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 + 
                3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/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*^-12*
               (-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.*^-6*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.*^-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) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/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.*^-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)*(
                3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*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.*^-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 + 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.*^-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 + 3*Cos[2*theta]) + 7.5*^-7*
                 (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                  (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/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.*^-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)*(
                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.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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*^-12*(-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.*^-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) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
           (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
              (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
           (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^
                (4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
              (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
              0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                 E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
              (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
           (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                 (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
             (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(
                0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
             (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
              (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
               (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
               (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 
             0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^
                 4/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.*^-7*(-9.*^-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)*((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.*^-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) - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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.*^-6*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.*^-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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.5*^-7*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.*^-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 + 3*Sin[theta]^2)) + 
            1.3499999999999999*^-11*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.*^-12*(-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.*^-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) + 
              7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.*^-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 - 
                3*Sin[theta]^2)))*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^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.5*^-6*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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*^-12*(-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.*^-7*((3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                   E^(4.*r^2) + (0.25*(0. - 8.*r)*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.*^-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 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
             (3.*^-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)*(
                (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.*^-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 + 3*Sin[theta]^2)))/4))*
           (r*(2 - 3.*^-6*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.*^-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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.5*^-7*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.*^-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 + 3*Sin[theta]^2)) + 
            1.3499999999999999*^-11*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.*^-12*(-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.*^-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) + 
              7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.*^-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 - 
                3*Sin[theta]^2)))*(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^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.5*^-6*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 - 3*Sin[theta]^2 + 3.75*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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*^-12*(-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*^-12*Cos[theta]^2*
           (-3.*^-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)*
             (-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.*^-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 + 3*Cos[2*theta])))*Sin[theta]^2*
           (6.*^-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)^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.*^-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 + 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.*^-6*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.*^-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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.5*^-7*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.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^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.5*^-6*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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*^-12*(-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.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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*^-12*(-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*^-12*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) - 0.000018*(0.375/(E^(4.*r^2)*r^3) + 
               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^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.*^-6*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.*^-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)*(1 + 
                3*Cos[2*theta]) + 1.*^-6*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.*^-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) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.*^-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)*(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*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.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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*^-12*(-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.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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*^-12*(-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.5*^-6*(3.*^-6*(9.*^-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 + (2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.*^-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)^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*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                  (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/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.*^-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)*(
                -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.*^-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 + 3*Cos[2*theta])))*
             Sin[2*theta]^2 + Cos[theta]^2*(-3.*^-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)*(
                -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.*^-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 + 3*Cos[2*theta])))*
             (-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.*^-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 + 
                3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/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*^-12*
               (-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.*^-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)*(
                -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.*^-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 + 3*Cos[2*theta])))*Sin[theta]^2*
             (-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.*^-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 + 
                3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/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*^-12*
               (-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.*^-6*(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*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.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
                 (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.*^-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 + 
                3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/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*^-12*
               (-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.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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*^-12*
              (-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*^-7*(2*(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)*(-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.*^-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 + 3*Cos[2*theta])) + 
              6*Sin[theta]^2*(3.*^-6*(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.*^-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)*
                 ((-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.5*^-7*
                 (-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.*^-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 + 3*Sin[theta]^2)))/4))*(-2 + 9.*^-12*
               (0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                    E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.*^-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 - 
                3*Sin[theta]^2 + 3.75*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/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*^-12*
               (-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.*^-6*((-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.*^-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 + 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.*^-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 + 3*Cos[2*theta]) - 7.5*^-7*
                 (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                  (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/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.*^-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)*(
                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.*^-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 + 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.*^-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 + 3*Cos[2*theta]))*Sin[theta]^2)/
               2 - 9.*^-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)*(
                (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.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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*^-12*(-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.*^-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) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
           (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
              (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
           (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/E^
                (4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
              (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
              0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                 E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
              (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
           (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                 (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
             (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(
                0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
             (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
              (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
               (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
               (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 
             0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^
                 4/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.*^-6*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.*^-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.5*^-6*
                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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.5*^-7*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.*^-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 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*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.*^-12*(-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.*^-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) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/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.*^-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 - 3*Sin[theta]^2)))^2) + 
         (7.5*^-13*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                E^(4.*r^2) + (0.25*(0. - 8.*r)*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.*^-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 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
             (3.*^-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)*(
                (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.*^-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 + 3*Sin[theta]^2)))/4)))/
          (-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
             (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
             (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
             (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                   (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                  8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*
                 (0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 
                  2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*
                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                  E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 - 3*Sin[theta]^2 + 3.75*^-7*(2.625/(E^(4.*r^2)*r^3) + 
               (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
               (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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*^-12*(-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*^-12*((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.*^-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)*(-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.*^-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 + 3*Cos[2*theta])))*Sin[theta]^2)/
          (-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
             (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
             (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
             (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                   (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                  8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*
                 (0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 
                  2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*
                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                  E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
               (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
               (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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*^-12*(-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*^-12*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) - 0.000018*(0.375/(E^(4.*r^2)*r^3) + 
               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^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.*^-6*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.*^-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)*(1 + 
                3*Cos[2*theta]) + 1.*^-6*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]*
           (-0.000018*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^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.*^-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) + 
              7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.*^-6*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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.5*^-7*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.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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*^-12*(-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.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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*^-12*(-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*^-12*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) - 0.000018*(0.375/(E^(4.*r^2)*r^3) + 
               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^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.*^-6*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.*^-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)*(1 + 
                3*Cos[2*theta]) + 1.*^-6*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.*^-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)^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.*^-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 + 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.*^-6*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.*^-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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.5*^-7*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.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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*^-12*(-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.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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*^-12*(-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*^-7*(r*(2 - 3.*^-6*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.*^-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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.5*^-7*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.*^-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 + 3*Sin[theta]^2)) + 
            1.3499999999999999*^-11*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.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.*^-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)^2*Sin[2*theta]^2 + 
            9.*^-6*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.*^-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)*
             (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.*^-12*(-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.*^-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) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.*^-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 - 
                3*Sin[theta]^2)))*(-2 + 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^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.5*^-6*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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*^-12*(-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.5*^-7*(-6.*^-6*(9.*^-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 + (2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.*^-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)^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*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                  (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/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) + 
              0.000018*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^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.*^-6*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.*^-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)*
                 (1 + 3*Cos[2*theta]) + 1.*^-6*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) - 
              0.000018*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^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.*^-6*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.*^-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)*
                 (1 + 3*Cos[2*theta]) + 1.*^-6*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.*^-12*(0.375/(E^(4.*r^2)*
                   r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.*^-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 + 
                3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/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*^-12*
               (-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.*^-6*(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.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.*^-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 + 
                3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/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*^-12*
               (-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.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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*^-12*
              (-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.*^-12*(-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.*^-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) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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.*^-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 - 3*Sin[theta]^2)))*(r*(2 - 3.*^-6*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.*^-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.5*^-6*
                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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.5*^-7*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.*^-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 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*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.*^-12*(-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.*^-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) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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.*^-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 - 3*Sin[theta]^2)))*(3.*^-6*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.*^-6*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.*^-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.5*^-6*
                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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.5*^-7*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.*^-6*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.*^-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.5*^-6*
                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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.5*^-7*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.*^-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 + 3*Sin[theta]^2)) + 1.*^-6*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.*^-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 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*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.3499999999999999*^-11*(0.375/(E^(4.*r^2)*r^3) + 
               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^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.3499999999999999*^-11*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.*^-6*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.*^-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.5*^-6*
                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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.5*^-7*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.*^-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 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*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.*^-6*(-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.*^-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) + 7.5*^-7*
                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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.*^-6*(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.*^-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 - 3*Sin[theta]^2)) + 4.5*^-12*(-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.*^-12*(-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.*^-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) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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.*^-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 - 3*Sin[theta]^2)))^2)) - 
       3.*^-6*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.5*^-12*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.*^-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)*
             ((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.*^-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) - 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
             (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
             (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
             (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                   (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                  8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*
                 (0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 
                  2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*
                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                  E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
               (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
               (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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*^-12*(-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.2500000000000003*^-12*r*
           ((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
               (0.25*(0. - 8.*r)*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.*^-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) + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.*^-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)*(3*((-3*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*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.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
             (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
             (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
             (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                   (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                  8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + (0.25*
                 (0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*(0.25*(0. - 8.*r) - 
                  2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 0.5*
                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                (0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                  E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
               (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
               (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                  (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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*^-12*(-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.5*^-6*Cos[theta]*Sin[theta]*
           (-0.000018*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^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.*^-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) + 
              7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.*^-6*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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.5*^-7*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.*^-6*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.*^-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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.5*^-7*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.*^-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 + 3*Sin[theta]^2)) + 
            1.3499999999999999*^-11*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.*^-12*(-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.*^-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) + 
              7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.*^-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 - 
                3*Sin[theta]^2)))*(2 - 9.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^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.5*^-6*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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*^-12*(-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.5*^-7*(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) - 0.000018*(0.375/(E^(4.*r^2)*r^3) + 
               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^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.*^-6*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.*^-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)*(1 + 
                3*Cos[2*theta]) + 1.*^-6*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*^-11*(0.375/(E^(4.*r^2)*r^3) + 
               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^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.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.*^-6*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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.5*^-7*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.*^-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)*(4 - 3.*^-6*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.*^-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] + 
              3.*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.5*^-7*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.*^-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] - 
              7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                    E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                    E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
               (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^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.5*^-6*
             (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                  E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 - 3*Sin[theta]^2 + 3.75*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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*^-12*(-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.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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*^-12*(-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.*^-6*Cos[theta]*Sin[theta]*
           (((4.5*^-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)*
                (-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 - 0.000012*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^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.*^-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) + 
                 1.*^-6*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.5*^-6*
                  (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/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.*^-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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
                   (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/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.5*^-7*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.*^-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)*
                ((-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*^-11*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^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.*^-6*
                (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                 (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                    (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                    0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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.5*^-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)*
                (4 - 12*Cos[2*theta] - 3.*^-6*(2.625/(E^(4.*r^2)*r^3) + 
                   (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                    r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                      (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                      0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                      (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                   (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                         (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                        8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                       (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/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.*^-12*
                (-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.*^-6*(-0.000018*(0.375/(E^(4.*r^2)*
                   r^3) + (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^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.*^-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) + 
                7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                  (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/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.*^-6*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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                  (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/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.5*^-7*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.*^-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 + 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.*^-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 + 3*Cos[2*theta]) + 7.5*^-7*
                 (2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                  (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/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.*^-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)*(
                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.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                   r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
              (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
              (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                 (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                 (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
              (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                   8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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*^-12*(-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.*^-6*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.*^-6 - 
                   3.*^-6*Cos[2*theta]))/4) + 6.*^-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)^2*Cos[
                2*theta] + 6.*^-6*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.*^-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)*(
                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.*^-12*(0.375/(E^(4.*r^2)*r^3) + (0.25/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                     r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.*^-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 + 
                3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/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*^-12*
               (-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.*^-6*(9.*^-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 + (2.625/(E^(4.*r^2)*r^3) + 
                (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                 r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                   (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                   0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                   (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                      (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                     8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     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.*^-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)^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*^-7*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/r^3 - 
                  (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. + 0.25*r))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - 
                     (2.*r)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                     0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/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.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                  (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                   r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                     (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                  (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                        (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                       8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                      (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/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.*^-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)^2*Sin[2*theta]^
                2 + 9.*^-6*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.*^-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)*(
                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.*^-12*(0.375/(E^(4.*r^2)*r^3) + 
                (0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^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.5*^-6*(2.625/(E^(4.*r^2)*r^3) + (9*(0.25/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.25*r))/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                    r)/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2))/r^3 - (2*((0.75*(0. - 8.*r))/
                   E^(4.*r^2) - (8.*(0. + 0.25*r))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.25*r))/E^(4.*r^2) - (2.*r)/
                   E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                  (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + (0. - 
                 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                    8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.25*r) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + 0.125*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/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.*^-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 + 3*Cos[2*theta] + 7.5*^-7*(2.625/(E^(4.*r^2)*r^3) + 
                 (9*(0.25/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.25*r))/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r)/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2))/
                  r^3 - (2*((0.75*(0. - 8.*r))/E^(4.*r^2) - 
                    (8.*(0. + 0.25*r))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                       0.25*r))/E^(4.*r^2) - (2.*r)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    (0.25*(0. - 8.*r)^2*r)/E^(4.*r^2) + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2))/r^2 - (21*((0.25*r)/E^(4.*r^2) + 
                    (0.125*(0. - 8.*r)*r^2)/E^(4.*r^2)))/r^4 + 
                 (0. - 2./E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - 8.*(0.25/E^(4.*r^2) + ((0. - 8.*r)*
                       (0. + 0.25*r))/E^(4.*r^2)) + ((0.25*(0. - 8.*r) - 
                      8.*(0. + 0.25*r))*(0. - 8.*r))/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0.25*(0. - 8.*r) - 2.*r))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.25*r) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + 0.125*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/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*^-12*
              (-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
