(((-I)*Csc[theta]*(((-1/2*I)*r*Sin[theta]*
        (1 - 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
           (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
            r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^
                (4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^
                3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
           (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
              (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
           (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
             2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
             3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
             1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
              r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
              (0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*
                 r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
             1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
             8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + 
             ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
              E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
                 (0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
         3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
              (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
           ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
             0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
             ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
          (-1 + 3*Sin[theta]^2))*
        ((-1.*^-12*((3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                      6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                      8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                  ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                  0.25*(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^3 + 
                  1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
                   (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)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                   E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                  8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 
                  1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                      (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2)/4 + 
             3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 - 3*Sin[theta]^2))^2)/
          (-2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 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))*r^3 + 
                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2)^
           2 - (1.*^-6*(-5.*^-7*(3*((3*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^3)*(-1 + 3*Cos[2*theta]) + (3*((21*((0.75*r^2)/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                  (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                  (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                    ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                    (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
                    6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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^3 + 1.5*r*
                     ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                      (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
                     (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)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                    1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                    (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + 
                      (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - 
                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
                       E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2))))/r)*Sin[theta]^2)/2)^2 + 
            (-2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 
                3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*Sin[theta]^2)*((3*((21*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 - 
                 (21*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^4 + (9*(0. + (3.*(0. - 8.*r))/
                     E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                      (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2))))/r^3 - (2*(-48./E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                    ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                    (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
                    6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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^3 + 1.5*r*
                     ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                      (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
                     (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)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                    1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                    (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + 
                      (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - 
                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
                       E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2)))))/r^2 + (0. + 4*(0. - (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)) + 6.*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (1.5*(0. - 8.*r) - 24.*r) + (-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. + 1.5*(0. - 8.*r) - 
                     24.*r) - (120.*(0. - 8.*r))/E^(4.*r^2) + 
                   6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + (384.*r)/E^(4.*r^2) + 
                   2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*(0. - 8.*r))*r + 1.5*
                    (-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))*r + 3.*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r + 1.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^2 + 0.75*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 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^2 + 0.25*r^3*
                    (-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)) + 
                   2*r*(96./E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                     (96.*(0. - 8.*r)*r)/E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/
                      E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
                      E^(4.*r^2)) + 6.*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)) + ((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*
                      r - 6.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2) + 
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 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.75*r^2) - 
                   24.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2) - 8.*((4.5*(0. - 8.*r))/E^(4.*r^2) - 
                     (24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^2 - (24.*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)) + 1.5*r*(192./E^(4.*r^2) - (8.*(0. - 8.*r)^
                        2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                     (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^2*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*((0. + 1.5*(0. - 8.*r) - 
                        24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 
                        6.*r^2)))/E^(4.*r^2) - 8.*((0. + 1.5*(0. - 8.*r) - 
                       24.*r)/E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                        6.*r^2))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*
                      r - 8.*(0. + 0.75*r^2)) + (-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*
                      r - 8.*(0. + 0.75*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r + ((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 
                       0.75*r^2)) + 1.5*r^2*(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))) + 
                   3.*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2))) + ((0. - 8.*r)*((1.5*(0. - 8.*r) - 
                        24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 
                        8.*(0. + 0.75*r^2))))/E^(4.*r^2) - 
                   8.*((1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                      E^(4.*r^2)) - 8.*((1.5*(0. - 8.*r))/E^(4.*r^2) - 
                     (24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                      (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2))) + 1.5*r*(128./E^(4.*r^2) - (1024.*r^2)/
                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*
                        (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/r)*
                Sin[theta]^2)/4 + 3*((3*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^5 - (3*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^3)*(1 - 3*Sin[theta]^2))))/
          (-2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 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))*r^3 + 
                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2)^
           2))/Sqrt[2] + ((I/2)*r*Sin[theta]*
        (1 - 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
           (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
            r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^
                (4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^
                3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
           (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
              (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
           (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
             2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
             3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
             1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
              r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
              (0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*
                 r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
             1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
             8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + 
             ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
              E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
                 (0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
         3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
              (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
           ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
             0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
             ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
          (-1 + 3*Sin[theta]^2))*
        ((5.*^-7*(7.5*^-7*(-26.25/(E^(4.*r^2)*r^3) + 
              (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
              (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*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))*
                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                    E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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^3 + 1.5*r*((-16.*(0. - 8.*r))/
                   E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
                   E^(4.*r^2)) + 1.5*r^2*(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)) - 
                (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
                8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                 E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
                   E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 
                1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                    (64.*r^2)/E^(4.*r^2))))/r)*
             ((3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                 (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/
                     E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                      (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                   0.25*(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^3 + 
                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   1.5*r^2*(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)) - (8.*(1.5*(0. - 8.*r)*
                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r))/4 + 
              3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2)) + 
            3.*^-6*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
              (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             (-3 + Csc[theta]^2)*((3*((21*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                 (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                   0.25*(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^3 + 
                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   1.5*r^2*(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)) - (8.*(1.5*(0. - 8.*r)*
                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r))/4 + 
              3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2)) - 
            (7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r) - Csc[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2))*
             ((3*((-105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^6 + (105*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 - 
                 (48*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^4 + (13*(0. + (3.*(0. - 8.*r))/
                     E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                      (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2))))/r^3 - (3*(-48./E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                    ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                    (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
                    6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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^3 + 1.5*r*
                     ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                      (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
                     (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)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                    1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                    (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + 
                      (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - 
                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
                       E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2)))))/r^2 + (0. + 4*(0. - (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)) + 6.*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (1.5*(0. - 8.*r) - 24.*r) + (-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. + 1.5*(0. - 8.*r) - 
                     24.*r) - (120.*(0. - 8.*r))/E^(4.*r^2) + 
                   6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + (384.*r)/E^(4.*r^2) + 
                   2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*(0. - 8.*r))*r + 1.5*
                    (-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))*r + 3.*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r + 1.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^2 + 0.75*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 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^2 + 0.25*r^3*
                    (-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)) + 
                   2*r*(96./E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                     (96.*(0. - 8.*r)*r)/E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/
                      E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
                      E^(4.*r^2)) + 6.*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)) + ((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*
                      r - 6.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2) + 
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 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.75*r^2) - 
                   24.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2) - 8.*((4.5*(0. - 8.*r))/E^(4.*r^2) - 
                     (24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^2 - (24.*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)) + 1.5*r*(192./E^(4.*r^2) - (8.*(0. - 8.*r)^
                        2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                     (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^2*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*((0. + 1.5*(0. - 8.*r) - 
                        24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 
                        6.*r^2)))/E^(4.*r^2) - 8.*((0. + 1.5*(0. - 8.*r) - 
                       24.*r)/E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                        6.*r^2))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*
                      r - 8.*(0. + 0.75*r^2)) + (-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*
                      r - 8.*(0. + 0.75*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r + ((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 
                       0.75*r^2)) + 1.5*r^2*(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))) + 
                   3.*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2))) + ((0. - 8.*r)*((1.5*(0. - 8.*r) - 
                        24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 
                        8.*(0. + 0.75*r^2))))/E^(4.*r^2) - 
                   8.*((1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                      E^(4.*r^2)) - 8.*((1.5*(0. - 8.*r))/E^(4.*r^2) - 
                     (24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                      (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2))) + 1.5*r*(128./E^(4.*r^2) - (1024.*r^2)/
                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*
                        (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/r))/4 + 
              3*((-15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^6 + (15*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^5 - (6*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^3)*(-3 + Csc[theta]^2))))/
          (7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*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))*
                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                   E^(4.*r^2)))/r) - Csc[theta]^2 + 
            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             (-3 + Csc[theta]^2))^2 - 
         (5.*^-7*(-9.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + 
              (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                  (0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
            1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*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))*
                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                   E^(4.*r^2)))/r) + 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + 
              (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
              (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*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))*
                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                    E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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^3 + 1.5*r*((-16.*(0. - 8.*r))/
                   E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
                   E^(4.*r^2)) + 1.5*r^2*(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)) - 
                (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
                8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                 E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
                   E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 
                1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                    (64.*r^2)/E^(4.*r^2))))/r) - 2*Csc[theta]^2 + 
            3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
              (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             Csc[theta]^2 + 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                 E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2))*
           ((3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(0. + 
                  (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))))/
                r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*
                   (0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*
                   (0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 2*(0. - (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))*
                  r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
                 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                 0.25*(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^3 + 1.5*r*((-16.*(0. - 8.*r))/
                    E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
                    E^(4.*r^2)) + 1.5*r^2*(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)) - 
                 (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
                 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                 (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                  E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
                    E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                    E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
              Sin[theta]^2)/4 + 3*((3*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
              (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             (1 - 3*Sin[theta]^2)))/(r*(7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 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))*r^3 + 
                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r) - 
            Csc[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                 E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2))*
           (-2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 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))*r^3 + 
                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
             Sin[theta]^2)) + (5.*^-7*(-9.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + 
              (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                  (0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
            1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*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))*
                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                   E^(4.*r^2)))/r) + 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + 
              (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
              (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*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))*
                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                    E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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^3 + 1.5*r*((-16.*(0. - 8.*r))/
                   E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
                   E^(4.*r^2)) + 1.5*r^2*(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)) - 
                (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
                8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                 E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
                   E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 
                1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                    (64.*r^2)/E^(4.*r^2))))/r) - 2*Csc[theta]^2 + 
            3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
              (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             Csc[theta]^2 + 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                 E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2))*
           (-9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
              (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
             ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/
                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 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))*r^3 + 
                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2)*
             Cos[theta]^2*Sin[theta]^2 - (3*((3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
              (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2))/r^3) - 7.5*^-7*
                (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*Sin[theta]^2))/2))/
          (r*(7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*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))*
                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                   E^(4.*r^2)))/r) - Csc[theta]^2 + 
            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             (-3 + Csc[theta]^2))*(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
            1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*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))*
                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                   E^(4.*r^2)))/r)*Sin[theta]^2 + 
            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
             Sin[2*theta]^2)) + (1.5*^-6*Cos[theta]*
           (-3.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                  (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + 
              (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                 E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
                2)*(1 + 3*Cos[2*theta]) + ((-6*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
              (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
              (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*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))*
                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                   E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))*
           (1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*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))*
                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                   E^(4.*r^2)))/r)*Cos[theta] - Cot[theta]*Csc[theta] + 
            3*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             (-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta])))/
          (r*(7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*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))*
                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                   E^(4.*r^2)))/r) - Csc[theta]^2 + 
            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
            1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*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))*
                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                   E^(4.*r^2)))/r)*Sin[theta]^2 - 
            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
             Sin[2*theta]^2))))/Sqrt[2]))/(Sqrt[2]*r) + 
   (-1/2*(-3.*^-6*r*(-1.5/(E^(4.*r^2)*r^2) + 
          (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
           r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
             0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
             ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
          (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
            (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^
                (4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
            ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Cos[theta]*
         Sin[theta]*((1.5*^-6*Cos[theta]*Sin[theta]*
            (((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + 
                 (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*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))*
                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                    E^(4.*r^2)))/r^2)*(1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*
                (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*Sin[theta]^2) + 
             1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
              (3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^3) - (3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                       r^3)/E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                  (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                     (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                       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^3 - 
                     (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                  (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                    ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                    (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
                    6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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^3 + 1.5*r*
                     ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                      (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
                     (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)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                    1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                    (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + 
                      (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - 
                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
                       E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2))))/r)*Sin[theta]^2)/4))*
            (r*(2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 3.*^-6*r*
                (-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                 (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^3) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r*
                (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                 (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                   0.25*(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^3 + 
                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   1.5*r^2*(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)) - (8.*(1.5*(0. - 8.*r)*
                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
                Sin[theta]^2)*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
             1.3499999999999999*^-11*r*(0.75/(E^(4.*r^2)*r^2) - 
               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + 
               (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Sin[2*theta]^2))/
           (r*(9.*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(0.75/(E^(4.*r^2)*
                   r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*
                (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*Sin[theta]^2)*(1 + 3.*^-6*
                (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                (2 - 3*Sin[theta]^2)))*(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
             1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
               (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
               (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*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))*
                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                    E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*
              (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
              (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
             4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
              Sin[2*theta]^2)) + (1.5*^-6*Cos[theta]*
            (-3.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + 
               (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) + 
             ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + 
                 (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*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))*
                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                    E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))*
            Sin[theta]*(1.8*^-11*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3)^2 + 
             (1 + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*Sin[theta]^2)*(2 - 3.*^-6*r*
                (-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                 (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^3) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r*
                (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                 (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                   0.25*(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^3 + 
                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   1.5*r^2*(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)) - (8.*(1.5*(0. - 8.*r)*
                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
                Sin[theta]^2) - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2))/r^3)*(4 - 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + 
                 (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^3) + 6.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
                 (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^2)*Cos[2*theta] + 3.*^-6*(5.25/(E^(4.*r^2)*r^2) - 
                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r*
                (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                 (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                   0.25*(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^3 + 
                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   1.5*r^2*(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)) - (8.*(1.5*(0. - 8.*r)*
                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
                Sin[theta]^2) + 6.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
               (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(Cos[2*theta] - 7.5*^-7*
                (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*Sin[theta]^4)))/
           ((-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
             1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
               (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
               (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*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))*
                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                    E^(4.*r^2)))/r)*Sin[theta]^2 - 6.*^-6*
              (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
              (1 - 3*Sin[theta]^2 + 3.75*^-7*(5.25/(E^(4.*r^2)*r^2) - 
                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
             4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
              Sin[2*theta]^2)*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
             1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
               (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
               (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*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))*
                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                    E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*
              (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
              (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
             4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
              Sin[2*theta]^2)) + (7.5*^-7*Sin[2*theta]*
            (-8.*^-6*(9.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2 + 
               (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)/4 - 3.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
                  (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                  (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                   r^2)^2*Cos[2*theta] + 3*(0.75/(E^(4.*r^2)*r^2) - 
                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 2.5*^-7*
                  (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                   (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                      (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                      (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                   (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2)))/r)*(-1 + 3*Cos[2*theta])))*
              (-9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^2)*((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
                 (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^2)*Cos[theta]^2*Sin[theta]^2 - 
               (3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                  (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                   r^3)*(1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)*
                      r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                         r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                      (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                      ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 
                  7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/
                        E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
                     r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                        E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                       (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                       0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                       (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                       ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                    (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                      2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*
                       r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + 
                      ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                       (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                        (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                        (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                       E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
                          (0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2))/
                2) + (3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^3)*(1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                   (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
                 ((5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                       (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                    (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                        E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                       (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                       0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                       (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                       ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                    (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                      2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*
                       r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + 
                      ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                       (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                        (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                        (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                       E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
                          (0. + 0.75*r^2))/E^(4.*r^2)))/r)*(1.*^-6 - 
                    3.*^-6*Cos[2*theta]))/4) + 3.*^-6*(-1.5/(E^(4.*r^2)*
                   r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^2)*((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
                 (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^2)*Cos[2*theta])*(-8 + 3.6*^-11*
                (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
                (1 + 3*Cos[2*theta]) - 6.*^-6*(5.25/(E^(4.*r^2)*r^2) - 
                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*
                (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                (4 - 12*Cos[2*theta] - 3.*^-6*(5.25/(E^(4.*r^2)*r^2) - 
                   (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                      (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                      ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                   (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                      (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                        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^3 - 
                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                   (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
               1.8*^-11*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                  (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
                Sin[2*theta]^2)))/(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
             1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
               (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
               (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*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))*
                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                    E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*
              (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
              (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
             4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
              Sin[2*theta]^2)^2 - (3.*^-6*Cos[theta]*Sin[theta]*
            (((4.5*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                 ((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                  (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                     (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                       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^3 - 
                     (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                  (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                    ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                    (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
                    6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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^3 + 1.5*r*
                     ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                      (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
                     (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)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                    1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                    (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + 
                      (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - 
                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
                       E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2))))/r)*Sin[theta]^2 + 
                3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                  (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                   r^3)*(2 - 0.000012*(0.75/(E^(4.*r^2)*r^2) - 
                    (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                        E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                      (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                      ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
                  2.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                       (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                    (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                        E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                        r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                      (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2) + 
                  1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/
                        E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
                     r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                        E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                       (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                       0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                       (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                       ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                    (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                      2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*
                       r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + 
                      ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                       (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                        (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                        (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                       E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
                          (0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2) + 
                ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
                  (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                     (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                       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^3 - 
                     (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r^2)*(-2 + 6.*^-6*(0.75/(E^(4.*r^2)*
                      r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                         r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                      (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                      ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
                  3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/
                        E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
                     r^5 - (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                        E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                        r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                      (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 
                  1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/
                        E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
                     r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                        E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                       (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                       0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                       (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                       ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                    (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                      2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*
                       r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + 
                      ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                       (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                        (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                        (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                       E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
                          (0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
                  7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/
                        E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
                     r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                        E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
                       (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                       0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                       (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                       ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                    (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                        E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                          E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                       0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                          6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                       1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                       8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                          E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                          8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                          E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                          E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                      2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                      3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                      ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
                       E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                      3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
                      6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                      0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                         E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 
                      0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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^3 + 1.5*r*
                       ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                        (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
                       (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)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                       E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                         6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                      1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                      8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                        0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                       E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                         8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*
                       (1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
                        (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
                         E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                         E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                        8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
                   Sin[theta]^2) + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
                  (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                  (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                   r^2)*((-3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                          r^3)/E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + 
                        (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                        ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                     (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                        (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                          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^3 - 
                        (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                          (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                     (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                         E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                          2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                        0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                          6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                        1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                        8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                          E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                          8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                          E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                          E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                       2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                       3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                       ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
                        E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                       3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
                       6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                       0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 
                       0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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^3 + 1.5*r*
                        ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                         (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
                        (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)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                        E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                          6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                       1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                       8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                         0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*
                          r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*
                          r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                       8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
                         (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
                          E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                          E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                         8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
                    Sin[theta]^2)/2 + r*(3*((-15*((0.75*r^2)/E^(4.*r^2) + 
                         (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 + 
                      (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                          E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                          E^(4.*r^2)))/r^5 - (6*(1.5/E^(4.*r^2) + 
                         (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                          E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*
                          r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                          E^(4.*r^2)))/r^4 + (0. + (3.*(0. - 8.*r))/
                         E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                        2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*
                         r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + 
                        ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                         E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                         (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                        8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                          E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                          8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                          E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                          E^(4.*r^2)))/r^3) - (3*((-105*((0.75*r^2)/
                          E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
                        r^6 + (105*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                          r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*
                          (0. + 0.75*r^2))/E^(4.*r^2)))/r^5 - 
                       (48*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                          (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                          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^3 - 
                          (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                          (0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                       (13*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                          E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                          2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                          0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                          6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                          1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                          8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                          E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                          8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                          E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                          E^(4.*r^2))))/r^3 - (3*(-48./E^(4.*r^2) + 
                          2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                          E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 
                          8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*
                          (0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                          3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
                          6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r^2 + 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 
                          0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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^3 + 1.5*r*
                          ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                          E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                          1.5*r^2*(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)) - 
                          (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                          ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                          E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                          (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
                          E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                          r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
                          8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                          (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                          E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*
                          r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - 
                          (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                          (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
                          E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                          E^(4.*r^2)))))/r^2 + (0. + 4*(0. - (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)) + 
                         6.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(1.5*(0. - 8.*r) - 24.*r) + 
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 
                          1.5*(0. - 8.*r) - 24.*r) - (120.*(0. - 8.*r))/
                          E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + (384.*r)/E^(4.*r^2) + 
                         2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r))*r + 1.5*(-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))*r + 3.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r + 1.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^2 + 0.75*(128./
                          E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 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^2 + 
                         0.25*r^3*(-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)) + 2*r*(96./E^(4.*r^2) - 6.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) + (96.*(0. - 8.*r)*r)/
                          E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/E^(4.*r^2) + 
                          (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
                          E^(4.*r^2)) + 6.*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)) + 
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 6.*r^2) + 
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2) + 
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 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.75*r^2) - 24.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                          E^(4.*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2) - 
                         8.*((4.5*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                          E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 - 
                          (24.*(0. - 8.*r)*r^2)/E^(4.*r^2)) + 1.5*r*
                          (192./E^(4.*r^2) - (8.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (256.*(0. - 8.*r)*r)/E^(4.*r^2) - (512.*r^2)/
                          E^(4.*r^2) + (64.*(0. - 8.*r)^2*r^2)/E^(4.*r^2)) + 
                         ((0. - 8.*r)*((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 
                          8.*r) - 8.*(1.5*(0. - 8.*r)*r - 6.*r^2)))/
                          E^(4.*r^2) - 8.*((0. + 1.5*(0. - 8.*r) - 24.*r)/
                          E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                          6.*r^2))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                          (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)) + 
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)) - 
                         8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. + 0.75*r^2)) + 1.5*r^2*(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))) + 3.*((128.*r)/E^(4.*r^2) - 
                          8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + 
                         ((0. - 8.*r)*((1.5*(0. - 8.*r) - 24.*r)*(0. - 
                          8.*r) - 8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*
                          r^2))))/E^(4.*r^2) - 8.*((1.5*(0. - 8.*r) - 24.*r)/
                          E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                          8.*(0. + 0.75*r^2)))/E^(4.*r^2)) - 8.*
                          ((1.5*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                          E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                          ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*
                          r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
                          ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))) + 
                         1.5*r*(128./E^(4.*r^2) - (1024.*r^2)/E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                          8.*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                          (64.*r^2)/E^(4.*r^2)))))/r)*Sin[theta]^2)/4)))*(
                -4 + 1.8*^-11*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                   ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
                 (1 + 3*Cos[2*theta]) - 3.*^-6*(5.25/(E^(4.*r^2)*r^2) - 
                  (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                  (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                     (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                       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^3 - 
                     (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r)*Sin[theta]^2 + 1.5*^-6*
                 (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                 (4 - 12*Cos[2*theta] - 3.*^-6*(5.25/(E^(4.*r^2)*r^2) - 
                    (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                        E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                       ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                    (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                       (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                         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^3 - 
                       (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                         (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                    (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                      2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*
                       r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + 
                      ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                       (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                        (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                        (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                       E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
                          (0. + 0.75*r^2))/E^(4.*r^2)))/r)*(1 + 
                    3*Cos[2*theta])*Sin[theta]^2) + 9.*^-12*
                 (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                   (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
                 Sin[2*theta]^2))/2 + 1.*^-6*(-0.000018*
                (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2 + 6*
                (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                (1 + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                   (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2) + 
                 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                   (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                      (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                      (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                   (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2)))/r)*Sin[theta]^2) + (-1.5/(E^(4.*r^2)*
                   r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^2)*(-2 + 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + 
                   (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
                      (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                      ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                   (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                     (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                       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^3 - 
                     (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 1.5*^-6*
                  (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                   (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                      (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                      (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                   (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2)))/r)*Sin[theta]^2 - 7.5*^-7*r*
                  (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                   (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
                      (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                      (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                   (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                       E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                         E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                        8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                         6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                      1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                      8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                         E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                         8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                         E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                     ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
                      E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/
                      E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                      r^2 + 0.25*(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^3 + 
                     1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                        E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                     1.5*r^2*(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)) - 
                     (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                        E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
                        8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
                       (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
                        E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                        E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                       8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
                  Sin[theta]^2))*((3*((21*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                  (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                  (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                    ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                    (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
                    6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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^3 + 1.5*r*
                     ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                      (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
                     (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)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                    1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                    (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + 
                      (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - 
                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
                       E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2))))/r)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*
                      r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                         r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                      (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                      ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                   (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 3*
                ((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^3)*(-1 + 3*Cos[2*theta] - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                   (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                  (1 + 3*Cos[2*theta]) + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
                   (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                      (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                      ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                   (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                      (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                        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^3 - 
                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                   (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
               9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^2)*((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
                 (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^2)*Sin[2*theta]^2)))/
           (2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
              (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
               (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + 
                 (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*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))*
                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                    E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*
              (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
              (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
             4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
              Sin[2*theta]^2)^2) + r^2*(1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
            (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
             r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
              0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
              ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
          7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
               (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
            (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
               ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
            (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                 (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
            (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
              2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
              3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
              1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
               r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                8.*r)*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))*r^3 + 
              ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
              (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 
                0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
              8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + 
              ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^
                (4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2)*
         ((5.*^-7*(-9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/
                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
              ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + 
                 (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*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))*
                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                    E^(4.*r^2)))/r^2)*Cos[theta]^2*Sin[theta]^2 - 
             (3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])*(
                -1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 
                7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r)*Sin[theta]^2))/2)*
            (r*(2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 3.*^-6*r*
                (-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                 (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^3) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r*
                (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                 (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                   0.25*(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^3 + 
                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   1.5*r^2*(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)) - (8.*(1.5*(0. - 8.*r)*
                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
                Sin[theta]^2)*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
             1.3499999999999999*^-11*r*(0.75/(E^(4.*r^2)*r^2) - 
               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + 
               (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Sin[2*theta]^2))/
           (r^2*(9.*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(0.75/(E^(4.*r^2)*
                   r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*
                (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*Sin[theta]^2)*(1 + 3.*^-6*
                (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                (2 - 3*Sin[theta]^2)))*(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
             1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
               (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
               (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*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))*
                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                    E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*
              (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
              (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
             4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
              Sin[2*theta]^2)) - 
          (5.*^-7*((3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(2 + 3.*^-6*
                 (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                 (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
              (3.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^2)*((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
                 (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^2)*Cos[theta]^2 + 
               (((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                  (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                     (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                       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^3 - 
                     (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                  (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                    ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                    (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
                    6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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^3 + 1.5*r*
                     ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                      (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
                     (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)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                    1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                    (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + 
                      (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - 
                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
                       E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2))))/r)*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)*
                      r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                         r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                      (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                      ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                   (-2 + 3*Sin[theta]^2)))/4))*
            (r*(2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 3.*^-6*r*
                (-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                 (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^3) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r*
                (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                 (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                   0.25*(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^3 + 
                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   1.5*r^2*(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)) - (8.*(1.5*(0. - 8.*r)*
                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
                Sin[theta]^2)*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
             1.3499999999999999*^-11*r*(0.75/(E^(4.*r^2)*r^2) - 
               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + 
               (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Sin[2*theta]^2))/
           (r^2*(9.*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(0.75/(E^(4.*r^2)*
                   r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*
                (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*Sin[theta]^2)*(1 + 3.*^-6*
                (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                (2 - 3*Sin[theta]^2)))*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
             1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
               (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
               (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*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))*
                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                    E^(4.*r^2)))/r)*Sin[theta]^2 - 6.*^-6*
              (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
              (1 - 3*Sin[theta]^2 + 3.75*^-7*(5.25/(E^(4.*r^2)*r^2) - 
                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
             4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
              Sin[2*theta]^2)) + (4.5*^-12*Cos[theta]^2*
            (-3.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + 
               (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) + 
             ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + 
                 (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*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))*
                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                    E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))*
            Sin[theta]^2*(-0.000018*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3)^2 + 
             6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
              (1 + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^2) + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*Sin[theta]^2) + 
             (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
              (-2 + 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + 
                 (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^3) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*Sin[theta]^2 - 7.5*^-7*r*
                (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                 (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                   0.25*(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^3 + 
                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   1.5*r^2*(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)) - (8.*(1.5*(0. - 8.*r)*
                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
                Sin[theta]^2)))/(r*(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
             1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
               (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
               (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*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))*
                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                    E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*
              (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
              (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
             4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
              Sin[2*theta]^2)*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
             1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
               (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
               (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*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))*
                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                    E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*
              (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
              (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
             4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
              Sin[2*theta]^2)) - (4.5*^-12*Cos[theta]^2*
            (-3.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + 
               (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) + 
             ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + 
                 (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*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))*
                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                    E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))*
            Sin[theta]^2*(6.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
                (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*Cos[2*theta] - 
             ((5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                  (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                 (1 + 3*Cos[2*theta])))/4 + (-1.5/(E^(4.*r^2)*r^2) + 
               (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(2 - 6.*^-6*
                (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 3.*^-6*r*
                (-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                 (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^3) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r*
                (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                 (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                   0.25*(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^3 + 
                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   1.5*r^2*(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)) - (8.*(1.5*(0. - 8.*r)*
                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
                Sin[theta]^2)))/(r*(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
             1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
               (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
               (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*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))*
                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                    E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*
              (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
              (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
             4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
              Sin[2*theta]^2)*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
             1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
               (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
               (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*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))*
                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                    E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*
              (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
              (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
             4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
              Sin[2*theta]^2)) + 
          (1.5*^-6*(3.*^-6*(9.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                  (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2 + 
               (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)/4 - 3.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
                  (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                  (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                   r^2)^2*Cos[2*theta] + 3*(0.75/(E^(4.*r^2)*r^2) - 
                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 2.5*^-7*
                  (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                   (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                      (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                      (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                   (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2)))/r)*(-1 + 3*Cos[2*theta])))*
              (-3.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^3)*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^2)*(1 + 3*Cos[2*theta]) + ((-6*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
                 (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
                 (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                   (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                  (1 + 3*Cos[2*theta])))*Sin[2*theta]^2 + Cos[theta]^2*
              (-3.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^3)*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^2)*(1 + 3*Cos[2*theta]) + ((-6*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
                 (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
                 (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                   (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                  (1 + 3*Cos[2*theta])))*(-2 + 9.*^-12*
                (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
                (1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*
                (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
                   (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                      (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                      ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                   (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                      (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                        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^3 - 
                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                   (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
               4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                  (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
                Sin[2*theta]^2) - (-3.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^3)*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^2)*(1 + 3*Cos[2*theta]) + ((-6*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
                 (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
                 (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                   (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                  (1 + 3*Cos[2*theta])))*Sin[theta]^2*(-2 + 9.*^-12*
                (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
                (1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*
                (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
                   (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                      (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                      ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                   (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                      (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                        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^3 - 
                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                   (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
               4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                  (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
                Sin[2*theta]^2) + 6.*^-6*(3*((3*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^3)*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^2) - 3*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
                 (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^2))*Cos[theta]*Sin[theta]*Sin[2*theta]*
              (-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
                (1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*Sin[theta]^2 - 3.*^-6*
                (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
                   (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                      (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                      ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                   (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                      (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                        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^3 - 
                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                   (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
               4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                  (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
                Sin[2*theta]^2)))/(r*(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
              1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
                7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
              4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^2)^2*Sin[2*theta]^2)^2) - 
          (5.*^-7*r*(9.*^-12*(-1.5/(E^(4.*r^2)*r^2) + 
                 (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^2)^2*Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*
                 (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
                7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r)*Sin[theta]^2)*(1 + 3.*^-6*
                 (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                 (2 - 3*Sin[theta]^2)))*(6*((3*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 
                3*Sin[theta]^2)*(2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                  (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 
                3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                  (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
                1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r*
                 (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                  (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
                     (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                  (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                    ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                    (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
                    6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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^3 + 1.5*r*
                     ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                      (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
                     (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)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                    1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                    (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + 
                      (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - 
                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
                       E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2))))/r)*Sin[theta]^2) + 
              2*(-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                  (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                   r^3) - 3*r*((-15*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 + 
                  (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^5 - (6*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r^3) + (3*((21*((0.75*r^2)/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                   (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + 
                      (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                      (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                   (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                       E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                         E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                        8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                         6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                      1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                      8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                         E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                         8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                         E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                     ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
                      E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/
                      E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                      r^2 + 0.25*(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^3 + 
                     1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                        E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                     1.5*r^2*(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)) - 
                     (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                        E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
                        8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
                       (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
                        E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                        E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                       8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
                  Sin[theta]^2)/2 + (3*r*((-105*((0.75*r^2)/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 + 
                   (105*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r^5 - (48*(1.5/E^(4.*r^2) + 
                      (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                      (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                   (13*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                       E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                         E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                        8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                         6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                      1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                      8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                         E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                         8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                         E^(4.*r^2))))/r^3 - (3*(-48./E^(4.*r^2) + 
                      2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                      3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                      ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
                       E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                      3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
                      6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                      0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                         E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 
                      0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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^3 + 1.5*r*
                       ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                        (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
                       (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)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                       E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                         6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                      1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                      8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                        0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                       E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                         8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*
                       (1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
                        (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
                         E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                         E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                        8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/r^2 + 
                   (0. + 4*(0. - (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)) + 6.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(1.5*(0. - 8.*r) - 24.*r) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 
                       1.5*(0. - 8.*r) - 24.*r) - (120.*(0. - 8.*r))/
                      E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) + (384.*r)/E^(4.*r^2) + 
                     2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r))*r + 1.5*
                      (-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))*r + 3.*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r + 1.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^2 + 0.75*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 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^2 + 0.25*r^3*
                      (-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)) + 2*r*(96./E^(4.*r^2) - 6.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) + (96.*(0. - 8.*r)*r)/
                        E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/E^(4.*r^2) + 
                       (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
                        E^(4.*r^2)) + 6.*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)) + 
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 6.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (1.5*(0. - 8.*r)*r - 6.*r^2) + (128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 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.75*r^2) - 24.*r*
                      (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                     8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                       0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^2) - 8.*((4.5*(0. - 8.*r))/
                        E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 1.5*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                       0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^2 - (24.*(0. - 8.*r)*r^2)/
                        E^(4.*r^2)) + 1.5*r*(192./E^(4.*r^2) - 
                       (8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/
                        E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^
                          2*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                       ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 
                        8.*(1.5*(0. - 8.*r)*r - 6.*r^2)))/E^(4.*r^2) - 
                     8.*((0. + 1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + 
                       ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                        E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r + ((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 
                         0.75*r^2)) + 1.5*r^2*(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))) + 3.*((128.*r)/E^(4.*r^2) - 
                       8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + 
                     ((0. - 8.*r)*((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 
                        8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2))))/
                      E^(4.*r^2) - 8.*((1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + 
                       ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                        E^(4.*r^2)) - 8.*((1.5*(0. - 8.*r))/E^(4.*r^2) - 
                       (24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*r + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                       1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                       ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                        E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
                          (0. + 0.75*r^2))/E^(4.*r^2))) + 1.5*r*
                      (128./E^(4.*r^2) - (1024.*r^2)/E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                       8.*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                          (64.*r^2)/E^(4.*r^2)))))/r)*Sin[theta]^2)/4)*(-1 + 
                3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                 (-2 + 3*Sin[theta]^2)) + 0.000027*(
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*
                  r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Sin[2*theta]^2 + 
              0.000027*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(
                (-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2)*Sin[2*theta]^2) - 
            (r*(2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 
                3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                  (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
                1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r*
                 (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                  (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
                     (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                  (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                    ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                    (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
                    6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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^3 + 1.5*r*
                     ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                      (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
                     (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)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                    1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                    (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + 
                      (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - 
                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
                       E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2))))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
                 (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                 (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*(
                0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(
                -1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
               Sin[2*theta]^2)*(3.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 
                3*Sin[theta]^2)*(1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                  (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
                7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r)*Sin[theta]^2) + 1.*^-6*(
                3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                  (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                   r^3) - (3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                        r^3)/E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + 
                      (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                      ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                   (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                      (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                        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^3 - 
                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                   (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                       E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                         E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                        8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                         6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                      1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                      8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                         E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                         8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                         E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                     ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
                      E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/
                      E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                      r^2 + 0.25*(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^3 + 
                     1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                        E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                     1.5*r^2*(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)) - 
                     (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                        E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
                        8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
                       (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
                        E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                        E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                       8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
                  Sin[theta]^2)/4)*(1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                  (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                 (2 - 3*Sin[theta]^2)) + 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + 
                (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
                (-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2)*Sin[2*theta]^2))/(2*r^2*
            (-9.*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^2)^2*Cos[theta]^2*Sin[theta]^2 + (1 - 3.*^-6*
                 (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
                7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r)*Sin[theta]^2)*(1 + 3.*^-6*
                 (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                 (2 - 3*Sin[theta]^2)))^2)))/(Sqrt[2]*r) + 
     (-3.*^-6*r*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
            (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
         (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
            0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
            ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
         (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
           (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
              E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
           ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Cos[theta]*
        Sin[theta]*((3.*^-12*r*Cos[theta]*Sin[theta]*
           (-9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
              (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
             ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/
                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 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))*r^3 + 
                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2)*
             Cos[theta]^2*Sin[theta]^2 - (3*((3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
              (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2))/r^3) - 7.5*^-7*
                (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*Sin[theta]^2))/2)*
           (((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                  E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^
                3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*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))*
                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                   E^(4.*r^2)))/r^2)*(1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*(
                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*Sin[theta]^2) + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
              (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                 E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
                2)*(3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 
              (3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                 (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/
                     E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                      (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                   0.25*(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^3 + 
                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   1.5*r^2*(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)) - (8.*(1.5*(0. - 8.*r)*
                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
                Sin[theta]^2)/4)))/(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
            1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*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))*
                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                   E^(4.*r^2)))/r)*Sin[theta]^2 + 
            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
             Sin[2*theta]^2)^2 + (3.*^-12*r*Cos[theta]*Sin[theta]*
           (((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                  E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^
                3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*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))*
                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                   E^(4.*r^2)))/r^2)*(1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*(
                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*Sin[theta]^2) + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
              (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                 E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
                2)*(3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 
              (3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                 (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/
                     E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                      (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                   0.25*(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^3 + 
                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   1.5*r^2*(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)) - (8.*(1.5*(0. - 8.*r)*
                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
                Sin[theta]^2)/4))*((3*((3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
              (2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
             (3.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
                (-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2)*Cos[theta]^2 + (((21*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                 (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                   0.25*(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^3 + 
                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   1.5*r^2*(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)) - (8.*(1.5*(0. - 8.*r)*
                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
                (-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                   ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                  (-2 + 3*Sin[theta]^2)))/4)))/
          ((2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 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))*r^3 + 
                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
             Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                 E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
             Sin[2*theta]^2)*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
            1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*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))*
                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                   E^(4.*r^2)))/r)*Sin[theta]^2 - 
            6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             (1 - 3*Sin[theta]^2 + 3.75*^-7*(5.25/(E^(4.*r^2)*r^2) - 
                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
             Sin[2*theta]^2)) - (3.*^-6*r*Cos[theta]*Sin[theta]*
           (-1/2*((((-6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^5 + (6*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
                 (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2))))/r^3 + (-48./E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                   0.25*(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^3 + 
                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   1.5*r^2*(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)) - (8.*(1.5*(0. - 8.*r)*
                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r^2)*
                (-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                   ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 
                 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                   (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                      (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                      (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                   (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2)))/r)*Sin[theta]^2) - 1.*^-6*
                (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^2)*(3*((3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r^5 - (3*(1.5/E^(4.*r^2) + 
                      (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                      (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                   (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2)))/r^3) - (3*((21*((1.5*r)/E^(4.*r^2) + 
                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                       ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 - 
                    (21*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                       (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                         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^3 - 
                       (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                         (0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                    (9*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                        E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                          E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                       0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                          6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                       1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                       8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                          E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                          8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                          E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                          E^(4.*r^2))))/r^3 - (2*(-48./E^(4.*r^2) + 
                       2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                       3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                       ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
                        E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                       3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
                       6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                       0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 
                       0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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^3 + 1.5*r*
                        ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                         (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
                        (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)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                        E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                          6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                       1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                       8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                         0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*
                          r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*
                          r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                       8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
                         (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
                          E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                          E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                         8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/
                     r^2 + (0. + 4*(0. - (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)) + 6.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) + (-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(1.5*(0. - 8.*r) - 24.*r) + 
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 
                        1.5*(0. - 8.*r) - 24.*r) - (120.*(0. - 8.*r))/
                       E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + (384.*r)/E^(4.*r^2) + 
                      2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r))*r + 1.5*(-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))*r + 3.*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r + 1.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^2 + 0.75*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 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^2 + 0.25*r^3*
                       (-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)) + 2*r*(96./E^(4.*r^2) - 6.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) + (96.*(0. - 8.*r)*r)/
                         E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/E^(4.*r^2) + 
                        (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
                         E^(4.*r^2)) + 6.*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)) + 
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 6.*r^2) + 
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 6.*r^2) + (128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 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.75*r^2) - 24.*r*
                       (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                      8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                        0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^2) - 8.*((4.5*(0. - 8.*r))/
                         E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 1.5*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                        0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^2 - (24.*(0. - 8.*r)*r^2)/
                         E^(4.*r^2)) + 1.5*r*(192./E^(4.*r^2) - 
                        (8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/
                         E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + 
                        (64.*(0. - 8.*r)^2*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                        ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 
                         8.*(1.5*(0. - 8.*r)*r - 6.*r^2)))/E^(4.*r^2) - 
                      8.*((0. + 1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + 
                        ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                         E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 
                        8.*(0. + 0.75*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                        8.*(0. + 0.75*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r + ((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 
                          0.75*r^2)) + 1.5*r^2*(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))) + 3.*((128.*r)/E^(4.*r^2) - 8.*r*
                         (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + 
                      ((0. - 8.*r)*((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 
                         8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2))))/
                       E^(4.*r^2) - 8.*((1.5*(0. - 8.*r) - 24.*r)/
                         E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                          8.*(0. + 0.75*r^2)))/E^(4.*r^2)) - 8.*
                       ((1.5*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                        1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                          (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 
                          8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                        8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*
                          r^2))/E^(4.*r^2))) + 1.5*r*(128./E^(4.*r^2) - 
                        (1024.*r^2)/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (64.*r^2)/E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 
                          8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/r)*
                   Sin[theta]^2)/4))*(-4 + 1.8*^-11*(0.75/(E^(4.*r^2)*r^2) - 
                  (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
                (1 + 3*Cos[2*theta]) - 3.*^-6*(5.25/(E^(4.*r^2)*r^2) - 
                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*Sin[theta]^2 + 1.5*^-6*
                (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                (4 - 12*Cos[2*theta] - 3.*^-6*(5.25/(E^(4.*r^2)*r^2) - 
                   (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                      (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                      ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                   (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                      (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                        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^3 - 
                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                   (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
               9.*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                  (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
                Sin[2*theta]^2)) + 1.*^-6*(((-6*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
                (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
                (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2)*(1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                  (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
                7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r)*Sin[theta]^2) + 1.*^-6*(
                -1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
                3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                  (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                   r^3) - (3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                        r^3)/E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + 
                      (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                      ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                   (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                      (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                        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^3 - 
                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                   (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                       E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                         E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                        8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                         6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                      1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                      8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                         E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                         8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                         E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                     ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
                      E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/
                      E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                      r^2 + 0.25*(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^3 + 
                     1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                        E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                     1.5*r^2*(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)) - 
                     (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                        E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
                        8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
                       (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
                        E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                        E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                       8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
                  Sin[theta]^2)/4))*((3*((21*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                 (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                   0.25*(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^3 + 
                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   1.5*r^2*(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)) - (8.*(1.5*(0. - 8.*r)*
                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
                (2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                   ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
              3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] - 
                6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                 (1 + 3*Cos[2*theta]) + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
                  (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                  (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                     (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                       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^3 - 
                     (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
              9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
                (-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2)*Sin[2*theta]^2)))/
          (2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 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))*r^3 + 
                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
             Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                 E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
             Sin[2*theta]^2)^2) + 
       r^2*(1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
           (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
            r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
             0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
             ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
         7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
              (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
           (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
              0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
              ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
           (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
              (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
           (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
             2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
             3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
             1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
              r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
              (0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*
                 r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
             1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
             8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + 
             ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
              E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
                 (0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2)*
        ((-1.*^-12*((3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(2 + 3.*^-6*
                 (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                 (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
              (3.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^2)*((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
                 (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^2)*Cos[theta]^2 + 
               (((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                  (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                     (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                       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^3 - 
                     (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                  (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                    ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                    (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
                    6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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^3 + 1.5*r*
                     ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                      (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
                     (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)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                    1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                    (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + 
                      (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - 
                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
                       E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2))))/r)*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)*
                      r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                         r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                      (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                      ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                   (-2 + 3*Sin[theta]^2)))/4))^2)/
          (-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 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))*r^3 + 
                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
             Sin[theta]^2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                 E^(4.*r^2))/r^3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(
                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
             Sin[2*theta]^2)^2 + (4.5*^-12*Cos[theta]^2*
           (-3.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                  (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + 
              (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                 E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
                2)*(1 + 3*Cos[2*theta]) + ((-6*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
              (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
              (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*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))*
                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                   E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))*
           Sin[theta]^2*(((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/
                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 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))*r^3 + 
                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2)*
             (1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
              7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*Sin[theta]^2) + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
              (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                 E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
                2)*(3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 
              (3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                 (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/
                     E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                      (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                   0.25*(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^3 + 
                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   1.5*r^2*(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)) - (8.*(1.5*(0. - 8.*r)*
                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
                Sin[theta]^2)/4)))/((2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
            1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*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))*
                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                   E^(4.*r^2)))/r)*Sin[theta]^2 + 
            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
             Sin[2*theta]^2)*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
            1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*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))*
                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                   E^(4.*r^2)))/r)*Sin[theta]^2 - 
            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
             Sin[2*theta]^2)) - 
         (1.*^-6*(((9.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                       r^3)/E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                  (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                   r^3)^2*(1 + 3*Cos[2*theta]) + 3*((3*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 - 
                 (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^4 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^3)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                   (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                  (1 + 3*Cos[2*theta])) + 6*Sin[theta]^2*
                (3.*^-6*((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                        E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                       ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
                    (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                       (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                         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^3 - 
                       (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                         (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                    (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                      2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*
                       r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + 
                      ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                       (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                        (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                        (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                       E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
                          (0. + 0.75*r^2))/E^(4.*r^2)))/r^2)^2*Cos[theta]^2 + 
                 3.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                   (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
                  ((-6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r^5 + (6*(1.5/E^(4.*r^2) + 
                      (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                      (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
                   (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                       E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                         E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                        8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                         6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                      1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                      8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                         E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                         8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                         E^(4.*r^2))))/r^3 + (-48./E^(4.*r^2) + 
                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                     ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
                      E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/
                      E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                      r^2 + 0.25*(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^3 + 
                     1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                        E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                     1.5*r^2*(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)) - 
                     (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                        E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
                        8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
                       (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
                        E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                        E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                       8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r^2)*
                  Cos[theta]^2 + 7.5*^-7*((3*((0.75*r^2)/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                   (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                  ((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + 
                      (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                      ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                   (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                      (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                        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^3 - 
                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                   (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                       E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                         E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                        8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                         6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                      1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                      8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                         E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                         8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                         E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                     ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
                      E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/
                      E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                      r^2 + 0.25*(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^3 + 
                     1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                        E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                     1.5*r^2*(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)) - 
                     (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                        E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
                        8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
                       (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
                        E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                        E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                       8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
                  (-2 + 3*Sin[theta]^2) + (((21*((1.5*r)/E^(4.*r^2) + 
                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                       ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 - 
                    (21*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                       (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                         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^3 - 
                       (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                         (0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                    (9*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                        E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                          E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                       0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                          6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                       1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                       8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                          E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                          8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                          E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                          E^(4.*r^2))))/r^3 - (2*(-48./E^(4.*r^2) + 
                       2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                       3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                       ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
                        E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                       3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
                       6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                       0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 
                       0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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^3 + 1.5*r*
                        ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                         (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
                        (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)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                        E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                          6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                       1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                       8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                         0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*
                          r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*
                          r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                       8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
                         (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
                          E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                          E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                         8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/
                     r^2 + (0. + 4*(0. - (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)) + 6.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) + (-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(1.5*(0. - 8.*r) - 24.*r) + 
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 
                        1.5*(0. - 8.*r) - 24.*r) - (120.*(0. - 8.*r))/
                       E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + (384.*r)/E^(4.*r^2) + 
                      2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r))*r + 1.5*(-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))*r + 3.*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r + 1.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^2 + 0.75*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 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^2 + 0.25*r^3*
                       (-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)) + 2*r*(96./E^(4.*r^2) - 6.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) + (96.*(0. - 8.*r)*r)/
                         E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/E^(4.*r^2) + 
                        (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
                         E^(4.*r^2)) + 6.*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)) + 
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 6.*r^2) + 
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 6.*r^2) + (128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 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.75*r^2) - 24.*r*
                       (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                      8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                        0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^2) - 8.*((4.5*(0. - 8.*r))/
                         E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 1.5*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                        0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^2 - (24.*(0. - 8.*r)*r^2)/
                         E^(4.*r^2)) + 1.5*r*(192./E^(4.*r^2) - 
                        (8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/
                         E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + 
                        (64.*(0. - 8.*r)^2*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                        ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 
                         8.*(1.5*(0. - 8.*r)*r - 6.*r^2)))/E^(4.*r^2) - 
                      8.*((0. + 1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + 
                        ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                         E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 
                        8.*(0. + 0.75*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                        8.*(0. + 0.75*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r + ((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 
                          0.75*r^2)) + 1.5*r^2*(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))) + 3.*((128.*r)/E^(4.*r^2) - 8.*r*
                         (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + 
                      ((0. - 8.*r)*((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 
                         8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2))))/
                       E^(4.*r^2) - 8.*((1.5*(0. - 8.*r) - 24.*r)/
                         E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                          8.*(0. + 0.75*r^2)))/E^(4.*r^2)) - 8.*
                       ((1.5*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                        1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                          (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 
                          8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                        8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*
                          r^2))/E^(4.*r^2))) + 1.5*r*(128./E^(4.*r^2) - 
                        (1024.*r^2)/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (64.*r^2)/E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 
                          8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/r)*
                   (-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
                          E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
                       r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                         E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                         E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)))/4))*
              (-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
                (1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*Sin[theta]^2 - 6.*^-6*
                (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                (1 - 3*Sin[theta]^2 + 3.75*^-7*(5.25/(E^(4.*r^2)*r^2) - 
                   (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                      (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                      ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                   (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                      (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                        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^3 - 
                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                   (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
               4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                  (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
                Sin[2*theta]^2))/2 - 2.5*^-7*(6*((3*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(2 + 
                3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                 (1 + 3*Cos[2*theta])) - (3*((21*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                 (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                   0.25*(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^3 + 
                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   1.5*r^2*(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)) - (8.*(1.5*(0. - 8.*r)*
                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
                (2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                   ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/2 + 
              9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
                (-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2)*Sin[2*theta]^2)*((-3*((21*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                 (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                   0.25*(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^3 + 
                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   1.5*r^2*(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)) - (8.*(1.5*(0. - 8.*r)*
                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
                (2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                   ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
              3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 - 3*Cos[2*theta] + 
                6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                 (1 + 3*Cos[2*theta]) - 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
                  (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                  (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                     (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                       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^3 - 
                     (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
                (-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2)*Sin[2*theta]^2)))/
          (2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 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))*r^3 + 
                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
             Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                 E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^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*(5.25/(E^(4.*r^2)*r^2) - 
           (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
            r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^
                (4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^
                3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
           (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
              (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
           (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
             2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
             3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
             1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
              r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
              (0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*
                 r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
             1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
             8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + 
             ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
              E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
                 (0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
         3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
              (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
           ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
             0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
             ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
          (-1 + 3*Sin[theta]^2))*
        ((-5.*^-7*(-9.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + 
              (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                  (0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
            1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*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))*
                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                   E^(4.*r^2)))/r) + 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + 
              (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
              (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*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))*
                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                    E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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^3 + 1.5*r*((-16.*(0. - 8.*r))/
                   E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
                   E^(4.*r^2)) + 1.5*r^2*(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)) - 
                (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
                8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                 E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
                   E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 
                1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                    (64.*r^2)/E^(4.*r^2))))/r) - 2*Csc[theta]^2 + 
            3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
              (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             Csc[theta]^2 + 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                 E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2))*
           ((3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(0. + 
                  (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))))/
                r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*
                   (0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*
                   (0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 2*(0. - (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))*
                  r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
                 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                 0.25*(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^3 + 1.5*r*((-16.*(0. - 8.*r))/
                    E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
                    E^(4.*r^2)) + 1.5*r^2*(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)) - 
                 (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
                 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                 (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                  E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
                    E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                    E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
              Sin[theta]^2)/4 + 3*((3*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
              (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             (1 - 3*Sin[theta]^2)))/(r*(7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 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))*r^3 + 
                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r) - 
            Csc[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                 E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2))*
           (-2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 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))*r^3 + 
                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
             Sin[theta]^2)) - 
         (1.*^-6*(-((3.*^-6*(-3.75/(E^(4.*r^2)*r^3) + 
                 (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^3)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*(-26.25/(E^(4.*r^2)*
                   r^3) + (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                 (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/
                     E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                      (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                   0.25*(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^3 + 
                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   1.5*r^2*(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)) - (8.*(1.5*(0. - 8.*r)*
                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
                Sin[theta]^2)*((3*((21*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                  (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                  (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                    ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                    (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
                    6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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^3 + 1.5*r*
                     ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                      (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
                     (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)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                    1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                    (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + 
                      (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - 
                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
                       E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2))))/r)*Sin[theta]^2)/4 + 3*
                ((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^3)*(1 - 3*Sin[theta]^2))) + 
            (-2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 
                3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*Sin[theta]^2)*((3*((-105*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 + 
                 (105*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^5 - (48*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                 (13*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2))))/r^3 - (3*(-48./E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                    ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                    (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
                    6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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^3 + 1.5*r*
                     ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                      (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
                     (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)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                    1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                    (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + 
                      (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - 
                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
                       E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2)))))/r^2 + (0. + 4*(0. - (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)) + 6.*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (1.5*(0. - 8.*r) - 24.*r) + (-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. + 1.5*(0. - 8.*r) - 
                     24.*r) - (120.*(0. - 8.*r))/E^(4.*r^2) + 
                   6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + (384.*r)/E^(4.*r^2) + 
                   2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*(0. - 8.*r))*r + 1.5*
                    (-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))*r + 3.*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r + 1.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^2 + 0.75*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 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^2 + 0.25*r^3*
                    (-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)) + 
                   2*r*(96./E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                     (96.*(0. - 8.*r)*r)/E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/
                      E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
                      E^(4.*r^2)) + 6.*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)) + ((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*
                      r - 6.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2) + 
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 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.75*r^2) - 
                   24.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2) - 8.*((4.5*(0. - 8.*r))/E^(4.*r^2) - 
                     (24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^2 - (24.*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)) + 1.5*r*(192./E^(4.*r^2) - (8.*(0. - 8.*r)^
                        2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                     (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^2*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*((0. + 1.5*(0. - 8.*r) - 
                        24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 
                        6.*r^2)))/E^(4.*r^2) - 8.*((0. + 1.5*(0. - 8.*r) - 
                       24.*r)/E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                        6.*r^2))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*
                      r - 8.*(0. + 0.75*r^2)) + (-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*
                      r - 8.*(0. + 0.75*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r + ((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 
                       0.75*r^2)) + 1.5*r^2*(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))) + 
                   3.*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2))) + ((0. - 8.*r)*((1.5*(0. - 8.*r) - 
                        24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 
                        8.*(0. + 0.75*r^2))))/E^(4.*r^2) - 
                   8.*((1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                      E^(4.*r^2)) - 8.*((1.5*(0. - 8.*r))/E^(4.*r^2) - 
                     (24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                      (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2))) + 1.5*r*(128./E^(4.*r^2) - (1024.*r^2)/
                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*
                        (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/r)*
                Sin[theta]^2)/4 + 3*((-15*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 + 
                (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 - 
                (6*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^4 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^3)*(1 - 3*Sin[theta]^2))))/
          (-2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 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))*r^3 + 
                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2)^
           2 + (5.*^-7*(-9.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + 
              (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                  (0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
            1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*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))*
                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                   E^(4.*r^2)))/r) + 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + 
              (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
              (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*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))*
                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                    E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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^3 + 1.5*r*((-16.*(0. - 8.*r))/
                   E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
                   E^(4.*r^2)) + 1.5*r^2*(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)) - 
                (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
                8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                 E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
                   E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 
                1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                    (64.*r^2)/E^(4.*r^2))))/r) - 2*Csc[theta]^2 + 
            3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
              (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             Csc[theta]^2 + 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                 E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2))*
           (-9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
              (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
             ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/
                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 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))*r^3 + 
                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2)*
             Cos[theta]^2*Sin[theta]^2 - (3*((3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
              (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2))/r^3) - 7.5*^-7*
                (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*Sin[theta]^2))/2))/
          (r*(7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*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))*
                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                   E^(4.*r^2)))/r) - Csc[theta]^2 + 
            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             (-3 + Csc[theta]^2))*(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
            1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*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))*
                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                   E^(4.*r^2)))/r)*Sin[theta]^2 + 
            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
             Sin[2*theta]^2)) + (1.5*^-6*Cos[theta]*
           (-3.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                  (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + 
              (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                 E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
                2)*(1 + 3*Cos[2*theta]) + ((-6*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
              (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
              (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*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))*
                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                   E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))*
           (1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*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))*
                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                   E^(4.*r^2)))/r)*Cos[theta] - Cot[theta]*Csc[theta] + 
            3*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             (-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta])))/
          (r*(7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*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))*
                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                   E^(4.*r^2)))/r) - Csc[theta]^2 + 
            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
            1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*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))*
                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                   E^(4.*r^2)))/r)*Sin[theta]^2 - 
            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
             Sin[2*theta]^2))))/Sqrt[2] + 
      ((I/2)*r*Sin[theta]*(1 - 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
           (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
            r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^
                (4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^
                3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
           (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
              (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
           (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
             2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
             3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
             1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
              r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
              (0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*
                 r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
             1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
             8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + 
             ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
              E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
                 (0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
         3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
              (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
           ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
             0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
             ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
          (-1 + 3*Sin[theta]^2))*
        (-1/4*(-9.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/
                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
               (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
             1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
               (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
               (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*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))*
                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                    E^(4.*r^2)))/r) + 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + 
               (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - (3*(0. + 
                  (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))))/
                r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*
                   (0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*
                   (0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 2*(0. - (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))*
                  r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
                 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                 0.25*(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^3 + 1.5*r*((-16.*(0. - 8.*r))/
                    E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
                    E^(4.*r^2)) + 1.5*r^2*(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)) - 
                 (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
                 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                 (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                  E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
                    E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                    E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r) - 
             2*Csc[theta]^2 + 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + 
               (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*Csc[theta]^2 + 
             6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
              (-3 + Csc[theta]^2))^2/(r^2*(7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r) - Csc[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2))^2) + 
         (7.5*^-13*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                 r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^
                (4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^
                (4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
           (1 + 3*Cos[2*theta])*((3*((21*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
               (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
               (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
               (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))))/
                r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*
                   (0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*
                   (0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 2*(0. - (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))*
                  r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
                 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                 0.25*(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^3 + 1.5*r*((-16.*(0. - 8.*r))/
                    E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
                    E^(4.*r^2)) + 1.5*r^2*(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)) - 
                 (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
                 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                 (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                  E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
                    E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                    E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
              Sin[theta]^2)/4 + 3*((3*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
              (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             (1 - 3*Sin[theta]^2)))/(-2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
             (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
              r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
               0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
               ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
            (-1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
             (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
              r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                 E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                 E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
              r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
               2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*
                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                (0. - 8.*r)*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))*
                r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
               (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                  E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                   r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                  8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
            Sin[theta]^2) + (1.125*^-12*(5.25/(E^(4.*r^2)*r^2) - 
              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 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))*r^3 + 
                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)^2 - 
           7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
             (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
             (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
             (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*
                (-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*
                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                (0. - 8.*r)*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))*
                r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
               (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                  E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                   r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                  8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
            (7.5*^-7*r^2*(157.5/(E^(4.*r^2)*r^4) - (630*((0.75*r^2)/
                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 + 
               (297*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 - 
               (87*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
               (19*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))))/
                r^3 - (4*(-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*
                    (0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*
                    (0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  2*(0. - (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))*
                   r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
                  6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                  0.25*(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^3 + 
                  1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
                   (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)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                   E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                  8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 
                  1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                      (64.*r^2)/E^(4.*r^2)))))/r^2 + (0. + 
                 4*(0. - (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)) + 6.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2)) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(1.5*(0. - 8.*r) - 24.*r) + 
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 
                   1.5*(0. - 8.*r) - 24.*r) - (120.*(0. - 8.*r))/E^(4.*r^2) + 
                 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                 (384.*r)/E^(4.*r^2) + 2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r))*r + 
                 1.5*(-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))*r + 3.*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r + 1.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^2 + 
                 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 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^2 + 0.25*r^3*
                  (-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)) + 
                 2*r*(96./E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + (96.*(0. - 8.*r)*
                     r)/E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/E^(4.*r^2) + 
                   (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                 6.*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)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 6.*r^2) + 
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 6.*r^2) + (128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 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.75*r^2) - 24.*r*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2) - 
                 8.*((4.5*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                   1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 - (24.*(0. - 8.*r)*r^2)/E^(4.*r^2)) + 
                 1.5*r*(192./E^(4.*r^2) - (8.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   (256.*(0. - 8.*r)*r)/E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + 
                   (64.*(0. - 8.*r)^2*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 
                    8.*(1.5*(0. - 8.*r)*r - 6.*r^2)))/E^(4.*r^2) - 
                 8.*((0. + 1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + 
                   ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2)) + 
                 ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)) + 
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)) - 
                 8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                    (0. + 0.75*r^2)) + 1.5*r^2*(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))) + 
                 3.*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2))) + ((0. - 8.*r)*((1.5*(0. - 8.*r) - 24.*r)*
                     (0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 
                        0.75*r^2))))/E^(4.*r^2) - 8.*((1.5*(0. - 8.*r) - 
                     24.*r)/E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                      8.*(0. + 0.75*r^2)))/E^(4.*r^2)) - 
                 8.*((1.5*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                   1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                      8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2))) + 1.5*r*(128./E^(4.*r^2) - (1024.*r^2)/
                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                       (64.*r^2)/E^(4.*r^2)))))/r) + 4*Csc[theta]^2 - 
             6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
              (-1 + 3*Cos[2*theta])*Csc[theta]^2 + 3.*^-6*r^2*
              (22.5/(E^(4.*r^2)*r^4) - (90*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 + 
               (39*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 - 
               (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
               (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*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))*
                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                    E^(4.*r^2)))/r^3)*(-3 + Csc[theta]^2)) + 
           (2.25*^-12*r^2*(-26.25/(E^(4.*r^2)*r^3) + 
                (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                      6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                      8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                  ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                  0.25*(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^3 + 
                  1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
                   (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)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                   E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                  8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 
                  1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                      (64.*r^2)/E^(4.*r^2))))/r)^2 + 9.000000000000001*^-12*
              r^2*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
               (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
              (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
               (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
               (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
               (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))))/
                r^2 + (-48./E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*
                   (0. - 8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*
                   (0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 2*(0. - (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))*
                  r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
                 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                 0.25*(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^3 + 1.5*r*((-16.*(0. - 8.*r))/
                    E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
                    E^(4.*r^2)) + 1.5*r^2*(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)) - 
                 (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
                 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                 1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                 (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                  E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
                    E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                    E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
              (-1 + 3*Cos[2*theta])*Csc[theta]^2 + 1.8*^-11*
              (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
              (1 - 3*Cos[2*theta])^2*Csc[theta]^4 + 9.*^-12*r^2*
              (-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
              (1 - 3*Cos[2*theta])^2*Csc[theta]^4 + 4*Csc[theta]^2*
              (7.5*^-7*r^2*(157.5/(E^(4.*r^2)*r^4) - (630*((0.75*r^2)/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 + 
                 (297*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^5 - (87*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                 (19*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2))))/r^3 - (4*(-48./E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                    ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                    (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
                    6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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^3 + 1.5*r*
                     ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                      (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
                     (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)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                    1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                    (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + 
                      (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - 
                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
                       E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2)))))/r^2 + (0. + 4*(0. - (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)) + 6.*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (1.5*(0. - 8.*r) - 24.*r) + (-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. + 1.5*(0. - 8.*r) - 
                     24.*r) - (120.*(0. - 8.*r))/E^(4.*r^2) + 
                   6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + (384.*r)/E^(4.*r^2) + 
                   2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*(0. - 8.*r))*r + 1.5*
                    (-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))*r + 3.*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r + 1.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^2 + 0.75*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 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^2 + 0.25*r^3*
                    (-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)) + 
                   2*r*(96./E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                     (96.*(0. - 8.*r)*r)/E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/
                      E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
                      E^(4.*r^2)) + 6.*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)) + ((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*
                      r - 6.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2) + 
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 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.75*r^2) - 
                   24.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2) - 8.*((4.5*(0. - 8.*r))/E^(4.*r^2) - 
                     (24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^2 - (24.*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)) + 1.5*r*(192./E^(4.*r^2) - (8.*(0. - 8.*r)^
                        2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                     (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^2*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*((0. + 1.5*(0. - 8.*r) - 
                        24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 
                        6.*r^2)))/E^(4.*r^2) - 8.*((0. + 1.5*(0. - 8.*r) - 
                       24.*r)/E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                        6.*r^2))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*
                      r - 8.*(0. + 0.75*r^2)) + (-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*
                      r - 8.*(0. + 0.75*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r + ((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 
                       0.75*r^2)) + 1.5*r^2*(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))) + 
                   3.*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2))) + ((0. - 8.*r)*((1.5*(0. - 8.*r) - 
                        24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 
                        8.*(0. + 0.75*r^2))))/E^(4.*r^2) - 
                   8.*((1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                      E^(4.*r^2)) - 8.*((1.5*(0. - 8.*r))/E^(4.*r^2) - 
                     (24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                      (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2))) + 1.5*r*(128./E^(4.*r^2) - (1024.*r^2)/
                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*
                        (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/r) + 2*
                Csc[theta]^2 + 3.*^-6*r^2*(22.5/(E^(4.*r^2)*r^4) - 
                 (90*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^6 + (39*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 - 
                 (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^4 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^3)*(-3 + Csc[theta]^2)) - 
             3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
              (-1 + 3*Cos[2*theta])*Csc[theta]^4*(8 + 3.*^-6*r^2*
                (22.5/(E^(4.*r^2)*r^4) - (90*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 + 
                 (39*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^5 - (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                 (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                      6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                      8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                  r^3)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*r^2*
                (157.5/(E^(4.*r^2)*r^4) - (630*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 + 
                 (297*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^5 - (87*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                 (19*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2))))/r^3 - (4*(-48./E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                    ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                    (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
                    6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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^3 + 1.5*r*
                     ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                      (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
                     (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)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                    1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                    (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + 
                      (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - 
                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
                       E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2)))))/r^2 + (0. + 4*(0. - (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)) + 6.*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (1.5*(0. - 8.*r) - 24.*r) + (-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. + 1.5*(0. - 8.*r) - 
                     24.*r) - (120.*(0. - 8.*r))/E^(4.*r^2) + 
                   6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + (384.*r)/E^(4.*r^2) + 
                   2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*(0. - 8.*r))*r + 1.5*
                    (-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))*r + 3.*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r + 1.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^2 + 0.75*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 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^2 + 0.25*r^3*
                    (-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)) + 
                   2*r*(96./E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                     (96.*(0. - 8.*r)*r)/E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/
                      E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
                      E^(4.*r^2)) + 6.*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)) + ((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*
                      r - 6.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2) + 
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 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.75*r^2) - 
                   24.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2) - 8.*((4.5*(0. - 8.*r))/E^(4.*r^2) - 
                     (24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^2 - (24.*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)) + 1.5*r*(192./E^(4.*r^2) - (8.*(0. - 8.*r)^
                        2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                     (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^2*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*((0. + 1.5*(0. - 8.*r) - 
                        24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 
                        6.*r^2)))/E^(4.*r^2) - 8.*((0. + 1.5*(0. - 8.*r) - 
                       24.*r)/E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                        6.*r^2))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*
                      r - 8.*(0. + 0.75*r^2)) + (-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*
                      r - 8.*(0. + 0.75*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r + ((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 
                       0.75*r^2)) + 1.5*r^2*(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))) + 
                   3.*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2))) + ((0. - 8.*r)*((1.5*(0. - 8.*r) - 
                        24.*r)*(0. - 8.*r) - 8.*(1.5*(0. - 8.*r)*r - 
                        8.*(0. + 0.75*r^2))))/E^(4.*r^2) - 
                   8.*((1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                      E^(4.*r^2)) - 8.*((1.5*(0. - 8.*r))/E^(4.*r^2) - 
                     (24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                      (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2))) + 1.5*r*(128./E^(4.*r^2) - (1024.*r^2)/
                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 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*(5.25/(E^(4.*r^2)*r^2) - 
               (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + 
                 (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*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))*
                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                    E^(4.*r^2)))/r) - Csc[theta]^2 + 
             3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
              (-3 + Csc[theta]^2))^2) + 
         (7.5*^-7*(4*r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
              (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
              (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*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))*
                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                   E^(4.*r^2)))/r^2) - 0.000018*(0.75/(E^(4.*r^2)*r^2) - 
               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
            (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
              (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
             (-4 + 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + 
                (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])) + 
            6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             (-2 + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
                (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) + 
              1.*^-6*r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
                (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
                (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2)*(1 + 3*Cos[2*theta])))*Csc[theta]*
           (1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*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))*
                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                   E^(4.*r^2)))/r)*Cos[theta] - Cot[theta]*Csc[theta] + 
            3*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             (-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta]))*
           Sin[2*theta])/(r^2*(7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 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))*r^3 + 
                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r) - 
            Csc[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                 E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2))*
           (-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 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))*r^3 + 
                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
             Sin[theta]^2 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                 E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
             Sin[2*theta]^2)) + (2.5*^-7*(-9.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + 
              (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                  (0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
            1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*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))*
                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                   E^(4.*r^2)))/r) + 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + 
              (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
              (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*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))*
                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                    E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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^3 + 1.5*r*((-16.*(0. - 8.*r))/
                   E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
                   E^(4.*r^2)) + 1.5*r^2*(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)) - 
                (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
                8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                 E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
                   E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 
                1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                    (64.*r^2)/E^(4.*r^2))))/r) - 2*Csc[theta]^2 + 
            3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
              (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             Csc[theta]^2 + 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                 E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2))*
           (-3*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
              (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             (1 + 3*Cos[2*theta])*(1 + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*Sin[theta]^2) + 9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
               (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2 + 
            9.*^-6*r*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
              (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
             (7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
              (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
              (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*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))*
                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                   E^(4.*r^2)))/r^2)*Sin[2*theta]^2 + 
            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             (3*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 
                3*Cos[2*theta]) - 9*(-1.5/(E^(4.*r^2)*r^2) + 
                (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Sin[2*theta]^2)))/
          (r^2*(7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*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))*
                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                   E^(4.*r^2)))/r) - Csc[theta]^2 + 
            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
            1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*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))*
                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                   E^(4.*r^2)))/r)*Sin[theta]^2 - 
            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
             Sin[2*theta]^2))))/Sqrt[2]))/(Sqrt[2]*r) - 
   ((-3.*^-6*r*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
            (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
         (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
            0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
            ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
         (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
           (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
              E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
           ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Cos[theta]*
        Sin[theta]*((-3.*^-12*Cos[theta]*Sin[theta]*
           (-9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
              (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
             ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/
                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 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))*r^3 + 
                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2)*
             Cos[theta]^2*Sin[theta]^2 - (3*((3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
              (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2))/r^3) - 7.5*^-7*
                (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*Sin[theta]^2))/2)*
           (-0.000018*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2 + 
            6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             (1 + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2) + 
              7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*Sin[theta]^2) + (-1.5/(E^(4.*r^2)*r^2) + 
              (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                 E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
                2)*(-2 + 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + 
                (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 1.5*^-6*(
                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*Sin[theta]^2 - 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + 
                (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                      6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                      8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                  ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                  0.25*(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^3 + 
                  1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
                   (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)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                   E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                  8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 
                  1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                      (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2)))/
          (2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 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))*r^3 + 
                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
             Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                 E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
             Sin[2*theta]^2)^2 + (3.*^-12*Cos[theta]*Sin[theta]*
           (-0.000018*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2 + 
            6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             (1 + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2) + 
              7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*Sin[theta]^2) + (-1.5/(E^(4.*r^2)*r^2) + 
              (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                 E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
                2)*(-2 + 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + 
                (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 1.5*^-6*(
                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*Sin[theta]^2 - 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + 
                (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                      6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                      8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                  ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                  0.25*(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^3 + 
                  1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
                   (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)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                   E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                  8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 
                  1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                      (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2))*
           ((3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(2 + 3.*^-6*
                (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
             (3.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
                (-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2)*Cos[theta]^2 + (((21*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                 (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                   0.25*(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^3 + 
                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   1.5*r^2*(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)) - (8.*(1.5*(0. - 8.*r)*
                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
                (-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                   ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                  (-2 + 3*Sin[theta]^2)))/4)))/
          ((2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 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))*r^3 + 
                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
             Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                 E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
             Sin[2*theta]^2)*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
            1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*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))*
                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                   E^(4.*r^2)))/r)*Sin[theta]^2 - 
            6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             (1 - 3*Sin[theta]^2 + 3.75*^-7*(5.25/(E^(4.*r^2)*r^2) - 
                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
             Sin[2*theta]^2)) + (1.5*^-6*Cos[theta]*
           (-3.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                  (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + 
              (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                 E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
                2)*(1 + 3*Cos[2*theta]) + ((-6*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
              (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
              (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*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))*
                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                   E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))*
           Sin[theta]*(1.8*^-11*(0.75/(E^(4.*r^2)*r^2) - 
               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2))/r^3)^2 + (1 + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*Sin[theta]^2)*(2 - 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + 
                (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 1.5*^-6*(
                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*Sin[theta]^2 + 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + 
                (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                      6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                      8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                  ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                  0.25*(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^3 + 
                  1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
                   (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)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                   E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                  8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 
                  1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                      (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2) - 
            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             (4 - 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + 
                (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 6.*^-6*(
                -1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Cos[
                2*theta] + 3.*^-6*(5.25/(E^(4.*r^2)*r^2) - 
                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*Sin[theta]^2 + 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + 
                (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                      6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                      8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                  ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                  0.25*(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^3 + 
                  1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
                   (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)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                   E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                  8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 
                  1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                      (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2) + 
            6.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
              (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
             (Cos[2*theta] - 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*Sin[theta]^4)))/
          ((-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 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))*r^3 + 
                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
             Sin[theta]^2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                 E^(4.*r^2))/r^3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(
                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
             Sin[2*theta]^2)*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
            1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*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))*
                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                   E^(4.*r^2)))/r)*Sin[theta]^2 - 
            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
             Sin[2*theta]^2)) + (1.5*^-12*Cos[theta]*Sin[theta]*
           (((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                  E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^
                3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*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))*
                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                   E^(4.*r^2)))/r^2)*(1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*(
                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*Sin[theta]^2) + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
              (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                 E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
                2)*(3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 
              (3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                 (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/
                     E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                      (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                   0.25*(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^3 + 
                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   1.5*r^2*(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)) - (8.*(1.5*(0. - 8.*r)*
                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
                Sin[theta]^2)/4))*(-3*r*(-3.75/(E^(4.*r^2)*r^3) + 
              (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                  (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])*
             (1 + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*Sin[theta]^2) + 9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
               (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2 + 
            9.*^-6*r*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
              (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
             (7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
              (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
              (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*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))*
                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                   E^(4.*r^2)))/r^2)*Sin[2*theta]^2 + 
            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             (3*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 
                3*Cos[2*theta]) - 9*(-1.5/(E^(4.*r^2)*r^2) + 
                (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Sin[2*theta]^2)))/
          ((2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 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))*r^3 + 
                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
             Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                 E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
             Sin[2*theta]^2)*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
            1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*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))*
                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                   E^(4.*r^2)))/r)*Sin[theta]^2 - 
            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
             Sin[2*theta]^2)) + (7.5*^-7*Sin[2*theta]*
           (-8.*^-6*(9.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2))/r^3)^2 + 
              (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)/4 - 3.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
                 (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^2)^2*Cos[2*theta] + 3*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 2.5*^-7*
                 (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r)*(-1 + 3*Cos[2*theta])))*
             (-9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
                (-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2)*Cos[theta]^2*Sin[theta]^2 - 
              (3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^3)*(1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)*
                     r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                        r^3)/E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 
                 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                   (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                      (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                      (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                   (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2)))/r)*Sin[theta]^2))/2) + 
            (3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 - 3.*^-6*
                 (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
                ((5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                   (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                      (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                      (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                   (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2)))/r)*(1.*^-6 - 3.*^-6*Cos[2*theta]))/4) + 
              3.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
                (-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2)*Cos[2*theta])*(-8 + 3.6*^-11*(0.75/(E^(4.*r^2)*r^2) - 
                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
              6.*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3)*(4 - 12*Cos[2*theta] - 
                3.*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              1.8*^-11*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^2)^2*Sin[2*theta]^2)))/
          (2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 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))*r^3 + 
                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
             Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                 E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
             Sin[2*theta]^2)^2 - (3.*^-6*Cos[theta]*Sin[theta]*
           (-((((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
                 (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^2)*(1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                   (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
                 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                   (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                      (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                      (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                   (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2)))/r)*Sin[theta]^2) + 1.*^-6*
                (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^2)*(3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
                      (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                      ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                   (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                     (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                       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^3 - 
                     (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 
                 (3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                        E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + 
                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                       ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                    (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                       (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                         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^3 - 
                       (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                         (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                    (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                        E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                          E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                       0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                          6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                       1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                       8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                          E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                          8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                          E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                          E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                      2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                      3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                      ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
                       E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                      3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
                      6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                      0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                         E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 
                      0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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^3 + 1.5*r*
                       ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                        (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
                       (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)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                       E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                         6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                      1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                      8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                        0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                       E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                         8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*
                       (1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
                        (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
                         E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                         E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                        8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
                   Sin[theta]^2)/4))*(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
                  (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
                (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*
                (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
                   (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                      (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                      ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                   (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                      (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                        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^3 - 
                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                   (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
               4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                  (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
                Sin[2*theta]^2)) - r*(((30*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 - 
                (30*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 + 
                (15*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^4 - (5*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                    E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                      E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2))))/r^3 + (-48./E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                  ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                  0.25*(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^3 + 
                  1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
                   (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)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                   E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                  8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 
                  1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                      (64.*r^2)/E^(4.*r^2))))/r^2)*(1 - 3.*^-6*
                 (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
                7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r)*Sin[theta]^2) - 1.*^-6*(
                (-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2)*(3*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                  (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 
                (3*(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                   (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
                      (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                      (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                   (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                       E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                         E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                        8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                         6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                      1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                      8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                         E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                         8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                         E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                     ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
                      E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/
                      E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                      r^2 + 0.25*(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^3 + 
                     1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                        E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                     1.5*r^2*(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)) - 
                     (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                        E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
                        8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
                       (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
                        E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                        E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                       8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
                  Sin[theta]^2)/4) + 1.*^-6*(7.5/(E^(4.*r^2)*r^3) - 
                (30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2)*(3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                  (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                   r^3) - (3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                        r^3)/E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + 
                      (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                      ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                   (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                      (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                        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^3 - 
                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                   (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                       E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                         E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                        8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                         6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                      1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                      8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                         E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                         8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                         E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                     ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
                      E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/
                      E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                      r^2 + 0.25*(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^3 + 
                     1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                        E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                     1.5*r^2*(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)) - 
                     (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                        E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
                        8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
                       (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
                        E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                        E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                       8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
                  Sin[theta]^2)/4) + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
                (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
                3*((-15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)))/r^6 + (15*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 - 
                  (6*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                     (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                       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^3 - 
                     (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r^3) - (3*((-105*((0.75*r^2)/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 + 
                   (105*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r^5 - (48*(1.5/E^(4.*r^2) + 
                      (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                      (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                   (13*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                       E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                         E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                        8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                         6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                      1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                      8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                         E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                         8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                         E^(4.*r^2))))/r^3 - (3*(-48./E^(4.*r^2) + 
                      2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                      3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                      ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
                       E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                      3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
                      6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                      0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                         E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 
                      0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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^3 + 1.5*r*
                       ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                        (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
                       (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)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                       E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                         6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                      1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                      8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                        0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                       E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                         8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*
                       (1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
                        (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
                         E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                         E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                        8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/r^2 + 
                   (0. + 4*(0. - (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)) + 6.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(1.5*(0. - 8.*r) - 24.*r) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 
                       1.5*(0. - 8.*r) - 24.*r) - (120.*(0. - 8.*r))/
                      E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) + (384.*r)/E^(4.*r^2) + 
                     2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r))*r + 1.5*
                      (-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))*r + 3.*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r + 1.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^2 + 0.75*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 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^2 + 0.25*r^3*
                      (-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)) + 2*r*(96./E^(4.*r^2) - 6.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) + (96.*(0. - 8.*r)*r)/
                        E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/E^(4.*r^2) + 
                       (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
                        E^(4.*r^2)) + 6.*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)) + 
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 6.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (1.5*(0. - 8.*r)*r - 6.*r^2) + (128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 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.75*r^2) - 24.*r*
                      (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                     8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                       0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^2) - 8.*((4.5*(0. - 8.*r))/
                        E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 1.5*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                       0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^2 - (24.*(0. - 8.*r)*r^2)/
                        E^(4.*r^2)) + 1.5*r*(192./E^(4.*r^2) - 
                       (8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/
                        E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^
                          2*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                       ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 
                        8.*(1.5*(0. - 8.*r)*r - 6.*r^2)))/E^(4.*r^2) - 
                     8.*((0. + 1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + 
                       ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                        E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r + ((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 
                         0.75*r^2)) + 1.5*r^2*(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))) + 3.*((128.*r)/E^(4.*r^2) - 
                       8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + 
                     ((0. - 8.*r)*((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 
                        8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2))))/
                      E^(4.*r^2) - 8.*((1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + 
                       ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                        E^(4.*r^2)) - 8.*((1.5*(0. - 8.*r))/E^(4.*r^2) - 
                       (24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*r + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                       1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                       ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                        E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
                          (0. + 0.75*r^2))/E^(4.*r^2))) + 1.5*r*
                      (128./E^(4.*r^2) - (1024.*r^2)/E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                       8.*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                          (64.*r^2)/E^(4.*r^2)))))/r)*Sin[theta]^2)/4))*
             (2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 
                3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
                7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
              4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^2)^2*Sin[2*theta]^2) + 1.*^-6*r*
             (((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2)*(1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                  (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
                7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r)*Sin[theta]^2) + 1.*^-6*(
                -1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
                3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                  (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                   r^3) - (3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                        r^3)/E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + 
                      (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                      ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                   (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                      (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                        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^3 - 
                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                   (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                       E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                         E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                        8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                         6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                      1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                      8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                         E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                         8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                         E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                     ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
                      E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/
                      E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                      r^2 + 0.25*(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^3 + 
                     1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                        E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                     1.5*r^2*(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)) - 
                     (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                        E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
                        8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
                       (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
                        E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                        E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                       8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
                  Sin[theta]^2)/4))*((3*(-26.25/(E^(4.*r^2)*r^3) + 
                 (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                 (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^3 - (3*(0. + (3.*(0. - 8.*r))/
                     E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                      (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                   0.25*(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^3 + 
                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   1.5*r^2*(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)) - (8.*(1.5*(0. - 8.*r)*
                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
                (2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                   ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
              3*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 
                3*Cos[2*theta] - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                  (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                 (1 + 3*Cos[2*theta]) + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
                  (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                  (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                     (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                       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^3 - 
                     (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
              9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
                7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
                (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
                (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2)*Sin[2*theta]^2)))/
          (2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 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))*r^3 + 
                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
             Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                 E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
             Sin[2*theta]^2)^2) + 
       r^2*(1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
           (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
            r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
             0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
             ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
         7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
              (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
           (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
              0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
              ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
           (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
              (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
           (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
             2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
             3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
             1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
              r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
              (0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*
                 r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
             1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
             8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + 
             ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
              E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
                 (0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2)*
        ((5.*^-7*(-9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
              (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                 E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
                2)*((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/
                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 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))*r^3 + 
                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2)*
             Cos[theta]^2*Sin[theta]^2 - (3*((3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
              (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2))/r^3) - 7.5*^-7*
                (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*Sin[theta]^2))/2)*
           (r*(2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3) - 3.*^-6*r*(
                -3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
              1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*Sin[theta]^2 + 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + 
                (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                      6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                      8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                  ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                  0.25*(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^3 + 
                  1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
                   (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)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                   E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                  8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 
                  1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                      (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2)*
             (-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
            1.3499999999999999*^-11*r*(0.75/(E^(4.*r^2)*r^2) - 
              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                 E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + 
              (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                 E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
                2)*Sin[2*theta]^2))/
          (r^2*(9.*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
             Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*(
                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*Sin[theta]^2)*(1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
           (2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 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))*r^3 + 
                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
             Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                 E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
             Sin[2*theta]^2)) - 
         (5.*^-7*((3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(2 + 3.*^-6*
                (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
             (3.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
                (-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2)*Cos[theta]^2 + (((21*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                 (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                   0.25*(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^3 + 
                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   1.5*r^2*(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)) - (8.*(1.5*(0. - 8.*r)*
                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
                (-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                   ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                  (-2 + 3*Sin[theta]^2)))/4))*
           (r*(2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3) - 3.*^-6*r*(
                -3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
              1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*Sin[theta]^2 + 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + 
                (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                      6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                      8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                  ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                  0.25*(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^3 + 
                  1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
                   (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)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                   E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                  8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 
                  1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                      (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2)*
             (-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
            1.3499999999999999*^-11*r*(0.75/(E^(4.*r^2)*r^2) - 
              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                 E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + 
              (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                 E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
                2)*Sin[2*theta]^2))/
          (r^2*(9.*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
             Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*(
                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*Sin[theta]^2)*(1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
           (-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 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))*r^3 + 
                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
             Sin[theta]^2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                 E^(4.*r^2))/r^3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(
                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
             Sin[2*theta]^2)) - (4.5*^-12*Cos[theta]^2*
           (-3.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                  (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + 
              (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                 E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
                2)*(1 + 3*Cos[2*theta]) + ((-6*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
              (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
              (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*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))*
                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                   E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))*
           Sin[theta]^2*(6.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
               (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*Cos[2*theta] - 
            ((5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
               (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
               (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*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))*
                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                    E^(4.*r^2)))/r)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))/4 + 
            (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
              (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
             (2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 
              3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
              1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*Sin[theta]^2 + 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + 
                (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                      6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                      8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                  ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                  0.25*(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^3 + 
                  1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
                   (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)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                   E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                  8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 
                  1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                      (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2)))/
          (r*(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 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))*r^3 + 
                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
             Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                 E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
             Sin[2*theta]^2)*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
            1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*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))*
                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                   E^(4.*r^2)))/r)*Sin[theta]^2 - 
            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
             Sin[2*theta]^2)) + (2.25*^-12*Cos[theta]*
           (4*r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
              (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
              (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*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))*
                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                   E^(4.*r^2)))/r^2) - 0.000018*(0.75/(E^(4.*r^2)*r^2) - 
               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
            (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
              (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
             (-4 + 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + 
                (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])) + 
            6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             (-2 + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
                (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) + 
              1.*^-6*r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
                (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
                (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2)*(1 + 3*Cos[2*theta])))*Sin[theta]*
           (((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                  E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^
                3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*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))*
                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                   E^(4.*r^2)))/r^2)*(1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*(
                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*Sin[theta]^2) + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
              (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                 E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
                2)*(3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 
              (3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                 (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/
                     E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                      (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                   0.25*(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^3 + 
                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   1.5*r^2*(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)) - (8.*(1.5*(0. - 8.*r)*
                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
                Sin[theta]^2)/4))*Sin[2*theta])/
          (r*(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 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))*r^3 + 
                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
             Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                 E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
             Sin[2*theta]^2)*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
            1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*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))*
                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                   E^(4.*r^2)))/r)*Sin[theta]^2 - 
            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
             Sin[2*theta]^2)) + 
         (1.5*^-6*(3.*^-6*(9.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2))/r^3)^2 + 
              (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)/4 - 3.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
                 (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^2)^2*Cos[2*theta] + 3*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 2.5*^-7*
                 (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r)*(-1 + 3*Cos[2*theta])))*
             (-3.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*
                  r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) + 
              ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                  (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                 (1 + 3*Cos[2*theta])))*Sin[2*theta]^2 + Cos[theta]^2*
             (-3.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*
                  r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) + 
              ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                  (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                 (1 + 3*Cos[2*theta])))*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*
                   r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
              1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*Sin[theta]^2 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
                7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^2)^2*Sin[2*theta]^2) - 
            (-3.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*
                  r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) + 
              ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                  (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                 (1 + 3*Cos[2*theta])))*Sin[theta]^2*
             (-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 
                3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*Sin[theta]^2 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
                7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^2)^2*Sin[2*theta]^2) + 6.*^-6*
             (3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*
                  r^2) + (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^2) - 
              3*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(
                (-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2))*Cos[theta]*Sin[theta]*Sin[2*theta]*
             (-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 
                3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*Sin[theta]^2 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
                7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^2)^2*Sin[2*theta]^2)))/
          (r*(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
             1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
               (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
               (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*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))*
                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                    E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*
              (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
              (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
             4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
              Sin[2*theta]^2)^2) - 
         (2.5*^-7*(2*(9.*^-6*(-3.75/(E^(4.*r^2)*r^3) + 
                (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta]) + 
              3*((-15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^6 + (15*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^5 - (6*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^3)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                  (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                 (1 + 3*Cos[2*theta])) + 6*Sin[theta]^2*(3.*^-6*
                 (7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
                  (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r^2)*((-6*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
                  (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r^2)*Cos[theta]^2 + 3.*^-6*
                 (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                  (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
                 ((30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)))/r^6 - (30*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 + 
                  (15*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                     (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                       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^3 - 
                     (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
                  (5*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2))))/r^3 + (-48./E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                    ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                    (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
                    6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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^3 + 1.5*r*
                     ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                      (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
                     (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)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                    1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                    (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + 
                      (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - 
                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
                       E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2))))/r^2)*Cos[theta]^2 + 7.5*^-7*
                 (-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                  (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                 ((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                  (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                     (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                       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^3 - 
                     (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                  (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                    ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                    (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
                    6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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^3 + 1.5*r*
                     ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                      (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
                     (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)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                    1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                    (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + 
                      (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - 
                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
                       E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2))))/r)*(-2 + 3*Sin[theta]^2) + 
                (((-105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)))/r^6 + (105*((1.5*r)/E^(4.*r^2) + 
                      (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                      ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 - 
                   (48*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                      (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                        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^3 - 
                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                   (13*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                       E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                         E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                        8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                         6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                      1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                      8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                         E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                         8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                         E^(4.*r^2))))/r^3 - (3*(-48./E^(4.*r^2) + 
                      2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                      3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                      ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
                       E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                      3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
                      6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                      0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                         E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 
                      0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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^3 + 1.5*r*
                       ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                        (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
                       (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)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                       E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                         6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                      1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                      8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                        0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                       E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                         8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*
                       (1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
                        (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
                         E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                         E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                        8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/r^2 + 
                   (0. + 4*(0. - (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)) + 6.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(1.5*(0. - 8.*r) - 24.*r) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 
                       1.5*(0. - 8.*r) - 24.*r) - (120.*(0. - 8.*r))/
                      E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) + (384.*r)/E^(4.*r^2) + 
                     2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r))*r + 1.5*
                      (-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))*r + 3.*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r + 1.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^2 + 0.75*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 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^2 + 0.25*r^3*
                      (-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)) + 2*r*(96./E^(4.*r^2) - 6.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) + (96.*(0. - 8.*r)*r)/
                        E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/E^(4.*r^2) + 
                       (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
                        E^(4.*r^2)) + 6.*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)) + 
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 6.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (1.5*(0. - 8.*r)*r - 6.*r^2) + (128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 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.75*r^2) - 24.*r*
                      (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                     8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                       0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^2) - 8.*((4.5*(0. - 8.*r))/
                        E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 1.5*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                       0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^2 - (24.*(0. - 8.*r)*r^2)/
                        E^(4.*r^2)) + 1.5*r*(192./E^(4.*r^2) - 
                       (8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/
                        E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^
                          2*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                       ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 
                        8.*(1.5*(0. - 8.*r)*r - 6.*r^2)))/E^(4.*r^2) - 
                     8.*((0. + 1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + 
                       ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                        E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r + ((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 
                         0.75*r^2)) + 1.5*r^2*(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))) + 3.*((128.*r)/E^(4.*r^2) - 
                       8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + 
                     ((0. - 8.*r)*((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 
                        8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2))))/
                      E^(4.*r^2) - 8.*((1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + 
                       ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                        E^(4.*r^2)) - 8.*((1.5*(0. - 8.*r))/E^(4.*r^2) - 
                       (24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*r + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                       1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                       ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                        E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
                          (0. + 0.75*r^2))/E^(4.*r^2))) + 1.5*r*
                      (128./E^(4.*r^2) - (1024.*r^2)/E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                       8.*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                          (64.*r^2)/E^(4.*r^2)))))/r)*(-1 + 3.*^-6*
                    (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                        (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                     ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                        E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)))/4))*
             (-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 
                3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*Sin[theta]^2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3)*(1 - 3*Sin[theta]^2 + 
                3.75*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^2)^2*Sin[2*theta]^2) + 1.*^-6*
             ((-3*(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                 (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                   0.25*(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^3 + 
                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   1.5*r^2*(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)) - (8.*(1.5*(0. - 8.*r)*
                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
                (2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                   ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
              3*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 - 
                3*Cos[2*theta] + 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                  (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                 (1 + 3*Cos[2*theta]) - 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
                  (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                  (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                     (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                       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^3 - 
                     (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
                7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
                (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
                (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2)*Sin[2*theta]^2)*(-6*((3*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(2 + 
                3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                 (1 + 3*Cos[2*theta])) + (3*((21*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                 (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                   0.25*(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^3 + 
                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   1.5*r^2*(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)) - (8.*(1.5*(0. - 8.*r)*
                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
                (2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                   ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/2 - 
              9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
                (-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2)*Sin[2*theta]^2)))/
          (2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 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))*r^3 + 
                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
             Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                 E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
             Sin[2*theta]^2)^2))/(2*Sqrt[2]*r) - 
     (r^2*(1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
           (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
            r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
             0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
             ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
         7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
              (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
           (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
              0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
              ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
           (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
              (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
           (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
             2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
             3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
             1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
              r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
              (0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*
                 r - 6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
             1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
             8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + 
             ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
              E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
                 (0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2)*
        (-1/4*(r*(2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2))/r^3) - 3.*^-6*r*
                (-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                 (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^3) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r*
                (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                 (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                   0.25*(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^3 + 
                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   1.5*r^2*(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)) - (8.*(1.5*(0. - 8.*r)*
                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
                Sin[theta]^2)*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
             1.3499999999999999*^-11*r*(0.75/(E^(4.*r^2)*r^2) - 
               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + 
               (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Sin[2*theta]^2)^2/
           (r^4*(9.*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^2)^2*Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*
                 (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
                7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r)*Sin[theta]^2)*(1 + 3.*^-6*
                 (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                 (2 - 3*Sin[theta]^2)))^2) + 
         (7.5*^-13*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                 r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^
                (4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^
                (4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
           (1 + 3*Cos[2*theta])*((3*((3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
              (2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
             (3.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
                (-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2)*Cos[theta]^2 + (((21*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                 (21*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^4 + (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                   0.25*(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^3 + 
                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   1.5*r^2*(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)) - (8.*(1.5*(0. - 8.*r)*
                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
                (-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                   ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                  (-2 + 3*Sin[theta]^2)))/4)))/
          (-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
            (1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
             (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
              r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                 E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                 E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
              r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
               2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*
                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                (0. - 8.*r)*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))*
                r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
               (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                  E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                   r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                  8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
           6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
             ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
               ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
            (1 - 3*Sin[theta]^2 + 3.75*^-7*(5.25/(E^(4.*r^2)*r^2) - 
               (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + 
                 (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*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))*
                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                    E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
           4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
              (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
            Sin[2*theta]^2) + (2.25*^-12*
           ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
             r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
            (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                 (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
            (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
              2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
              3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
              1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
               r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                8.*r)*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))*r^3 + 
              ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
              (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 
                0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
              8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + 
              ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^
                (4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.75*r^2))/E^(4.*r^2)))/r^2)*Cos[theta]^2*
           (-3.*^-6*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                  (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + 
              (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                 E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
                2)*(1 + 3*Cos[2*theta]) + ((-6*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
              (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
              (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*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))*
                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                   E^(4.*r^2)))/r^2)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))*
           Sin[theta]^2)/(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                 E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
           1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
             (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
             (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
             (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*
                (-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*
                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                (0. - 8.*r)*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))*
                r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
               (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                  E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                   r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                  8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
           3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
             ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
               ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
            (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
               (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + 
                 (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*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))*
                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                    E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
           4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
              (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
            Sin[2*theta]^2) + (2.25*^-12*Cos[theta]*
           (4*r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
              (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
              (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*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))*
                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                   E^(4.*r^2)))/r^2) - 0.000018*(0.75/(E^(4.*r^2)*r^2) - 
               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
            (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
              (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
             (-4 + 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + 
                (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])) + 
            6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             (-2 + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
                (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) + 
              1.*^-6*r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
                (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
                (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2)*(1 + 3*Cos[2*theta])))*Sin[theta]*
           (-0.000018*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2 + 
            6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             (1 + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2) + 
              7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*Sin[theta]^2) + (-1.5/(E^(4.*r^2)*r^2) + 
              (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                 E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
                2)*(-2 + 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + 
                (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 1.5*^-6*(
                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*Sin[theta]^2 - 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + 
                (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                      6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                      8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                  ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                  0.25*(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^3 + 
                  1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
                   (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)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                   E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                  8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 
                  1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                      (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2))*Sin[2*theta])/
          (r^2*(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 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))*r^3 + 
                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
             Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                 E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
             Sin[2*theta]^2)*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
            1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*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))*
                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                   E^(4.*r^2)))/r)*Sin[theta]^2 - 
            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
             Sin[2*theta]^2)) - (2.25*^-12*Cos[theta]*
           (4*r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
              (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
              (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*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))*
                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                   E^(4.*r^2)))/r^2) - 0.000018*(0.75/(E^(4.*r^2)*r^2) - 
               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
            (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
              (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
             (-4 + 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + 
                (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])) + 
            6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             (-2 + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
                (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) + 
              1.*^-6*r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
                (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
                (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2)*(1 + 3*Cos[2*theta])))*Sin[theta]*
           (6.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
             Cos[2*theta] - ((5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/
                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
               (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
               (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*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))*
                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                    E^(4.*r^2)))/r)*(2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))/4 + 
            (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
              (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
             (2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 
              3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
              1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*Sin[theta]^2 + 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + 
                (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                      6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                      8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                  ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                  0.25*(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^3 + 
                  1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
                   (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)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                   E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                  8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 
                  1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                      (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2))*Sin[2*theta])/
          (r^2*(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 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))*r^3 + 
                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
             Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                 E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
             Sin[2*theta]^2)*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
            1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*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))*
                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                   E^(4.*r^2)))/r)*Sin[theta]^2 - 
            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
             Sin[2*theta]^2)) + 
         (2.5*^-7*(r*(2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3) - 3.*^-6*r*(
                -3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
              1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*Sin[theta]^2 + 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + 
                (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                      6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                      8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                  ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                  0.25*(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^3 + 
                  1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
                   (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)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                   E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                  8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 
                  1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                      (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2)*
             (-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
            1.3499999999999999*^-11*r*(0.75/(E^(4.*r^2)*r^2) - 
              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                 E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + 
              (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                 E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
                2)*Sin[2*theta]^2)*(-3*r*(-3.75/(E^(4.*r^2)*r^3) + 
              (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                  (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])*
             (1 + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*Sin[theta]^2) + 9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
               (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2 + 
            9.*^-6*r*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
              (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
             (7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
              (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
              (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*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))*
                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                   E^(4.*r^2)))/r^2)*Sin[2*theta]^2 + 
            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             (3*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 
                3*Cos[2*theta]) - 9*(-1.5/(E^(4.*r^2)*r^2) + 
                (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Sin[2*theta]^2)))/
          (r^3*(9.*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
             Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*(
                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*Sin[theta]^2)*(1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
           (-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 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))*r^3 + 
                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
             Sin[theta]^2 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                 E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
             Sin[2*theta]^2)) + 
         (7.5*^-7*(-6.*^-6*(9.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2))/r^3)^2 + 
              (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)/4 - 3.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
                 (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^2)^2*Cos[2*theta] + 3*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 2.5*^-7*
                 (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r)*(-1 + 3*Cos[2*theta])))*
             (-4*r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
                (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
                (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2) + 0.000018*(0.75/(E^(4.*r^2)*r^2) - 
                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
              (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(-4 + 
                3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                  (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                 (1 + 3*Cos[2*theta])) - 6*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 1.*^-6*
                 (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                  (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
                 (1 + 3*Cos[2*theta]) + 1.*^-6*r*(7.5/(E^(4.*r^2)*r^3) - 
                  (30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
                  (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                     (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                       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^3 - 
                     (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r^2)*(1 + 3*Cos[2*theta])))*
             Sin[2*theta]^2 + 2*Cos[2*theta]*(4*r*(7.5/(E^(4.*r^2)*r^3) - 
                (30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2) - 0.000018*(0.75/(E^(4.*r^2)*r^2) - 
                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
              (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(-4 + 
                3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                  (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                 (1 + 3*Cos[2*theta])) + 6*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 1.*^-6*
                 (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                  (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
                 (1 + 3*Cos[2*theta]) + 1.*^-6*r*(7.5/(E^(4.*r^2)*r^3) - 
                  (30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
                  (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                     (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                       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^3 - 
                     (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r^2)*(1 + 3*Cos[2*theta])))*
             (-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 
                3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*Sin[theta]^2 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
                7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^2)^2*Sin[2*theta]^2) + 6.*^-6*
             (18*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2 + 
              3*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(
                -1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2) - 
              6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(
                -1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2 + 
                r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
                  (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r^2)))*Sin[2*theta]^2*
             (-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 
                3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*Sin[theta]^2 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
                7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^2)^2*Sin[2*theta]^2)))/
          (r^2*(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
             1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
               (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
               (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*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))*
                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                    E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*
              (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
              (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
             4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
              Sin[2*theta]^2)^2) - 
         (-2*(9.*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(0.75/(E^(4.*r^2)*
                   r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*
                (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*Sin[theta]^2)*(1 + 3.*^-6*
                (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                (2 - 3*Sin[theta]^2)))*(r*(2 - 6.*^-6*(0.75/(E^(4.*r^2)*
                   r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2))/r^3) - 3.*^-6*r*
                (-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                 (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^3) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r*
                (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                 (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                   0.25*(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^3 + 
                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   1.5*r^2*(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)) - (8.*(1.5*(0. - 8.*r)*
                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
                Sin[theta]^2)*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
             1.3499999999999999*^-11*r*(0.75/(E^(4.*r^2)*r^2) - 
               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + 
               (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Sin[2*theta]^2) + 
           r*(9.*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(0.75/(E^(4.*r^2)*
                   r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*
                (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*Sin[theta]^2)*(1 + 3.*^-6*
                (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                (2 - 3*Sin[theta]^2)))*(3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + 
               (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)*
              (2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 3.*^-6*r*
                (-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                 (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^3) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r*
                (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                 (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                   0.25*(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^3 + 
                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   1.5*r^2*(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)) - (8.*(1.5*(0. - 8.*r)*
                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
                Sin[theta]^2) + (2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2))/r^3) - 3.*^-6*r*
                (-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                 (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^3) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r*
                (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                 (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                   0.25*(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^3 + 
                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   1.5*r^2*(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)) - (8.*(1.5*(0. - 8.*r)*
                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
                Sin[theta]^2)*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
             1.*^-6*r*(-9*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                 (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^3) - 3*r*(22.5/(E^(4.*r^2)*r^4) - 
                 (90*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^6 + (39*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 - 
                 (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^4 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^3) + (9*(-26.25/(E^(4.*r^2)*r^3) + 
                  (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                  (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                     (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                       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^3 - 
                     (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                  (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                    ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                    (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
                    6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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^3 + 1.5*r*
                     ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                      (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
                     (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)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                    1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                    (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + 
                      (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - 
                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
                       E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2))))/r)*Sin[theta]^2)/4 + (3*r*
                 (157.5/(E^(4.*r^2)*r^4) - (630*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^6 + 
                  (297*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^5 - (87*(1.5/E^(4.*r^2) + 
                     (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                  (19*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                      E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                        E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2))))/r^3 - (4*(-48./E^(4.*r^2) + 
                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                     ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
                      E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/
                      E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                      r^2 + 0.25*(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^3 + 
                     1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                        E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                     1.5*r^2*(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)) - 
                     (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                        E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
                        8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
                       (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
                        E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                        E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                       8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))))/r^2 + 
                  (0. + 4*(0. - (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)) + 6.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2)) + (-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(1.5*(0. - 8.*r) - 24.*r) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 
                      1.5*(0. - 8.*r) - 24.*r) - (120.*(0. - 8.*r))/
                     E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r) + (384.*r)/E^(4.*r^2) + 
                    2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*(0. - 8.*r))*r + 1.5*
                     (-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))*r + 3.*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r + 1.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^2 + 0.75*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 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^2 + 0.25*r^3*
                     (-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)) + 2*r*(96./E^(4.*r^2) - 6.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*(0. - 8.*r) + (96.*(0. - 8.*r)*r)/
                       E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/E^(4.*r^2) + 
                      (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                    6.*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)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 
                      6.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2) + 
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 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.75*r^2) - 
                    24.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2) - 8.*((4.5*(0. - 8.*r))/
                       E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 1.5*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2 - (24.*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + 1.5*r*(192./E^(4.*r^2) - 
                      (8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/
                       E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^
                         2*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                      ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 
                       8.*(1.5*(0. - 8.*r)*r - 6.*r^2)))/E^(4.*r^2) - 
                    8.*((0. + 1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + 
                      ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                       E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 
                      8.*(0. + 0.75*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                      8.*(0. + 0.75*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r + ((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 
                        0.75*r^2)) + 1.5*r^2*(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))) + 
                    3.*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                        (64.*r^2)/E^(4.*r^2))) + ((0. - 8.*r)*
                      ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 
                       8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2))))/
                     E^(4.*r^2) - 8.*((1.5*(0. - 8.*r) - 24.*r)/E^(4.*r^2) + 
                      ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                       E^(4.*r^2)) - 8.*((1.5*(0. - 8.*r))/E^(4.*r^2) - 
                      (24.*r)/E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*r + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                       (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                      ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                       E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
                          (0. + 0.75*r^2))/E^(4.*r^2))) + 1.5*r*
                     (128./E^(4.*r^2) - (1024.*r^2)/E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                      8.*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                          (64.*r^2)/E^(4.*r^2)))))/r)*Sin[theta]^2)/4)*
              (-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
                     E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*
              (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
              (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
              Sin[2*theta]^2 + 1.3499999999999999*^-11*r*
              (-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
               (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
              (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
              Sin[2*theta]^2 + 1.3499999999999999*^-11*r*
              (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
              (7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
               (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
               (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
               (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*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))*
                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                    E^(4.*r^2)))/r^2)*Sin[2*theta]^2) - 
           r*(r*(2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2))/r^3) - 3.*^-6*r*
                (-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                 (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^3) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*Sin[theta]^2 + 7.5*^-7*r*
                (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                 (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                   0.25*(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^3 + 
                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   1.5*r^2*(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)) - (8.*(1.5*(0. - 8.*r)*
                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
                Sin[theta]^2)*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
             1.3499999999999999*^-11*r*(0.75/(E^(4.*r^2)*r^2) - 
               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + 
               (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Sin[2*theta]^2)*
            (3.*^-6*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
               (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
              (-2 + 3*Sin[theta]^2)*(1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*
                (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*Sin[theta]^2) + 
             1.*^-6*(3*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                 (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^3) - (3*(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                  (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
                     (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                  (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                    ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                    (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
                    6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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^3 + 1.5*r*
                     ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                      (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
                     (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)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                    1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                    (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + 
                      (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - 
                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
                       E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2))))/r)*Sin[theta]^2)/4)*(1 + 3.*^-6*
                (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                (2 - 3*Sin[theta]^2)) + 4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + 
               (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(7.5/(E^(4.*r^2)*r^3) - 
               (30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + 
                 (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*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))*
                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                    E^(4.*r^2)))/r^2)*Sin[2*theta]^2))/
          (2*r^3*(-9.*^-12*(-1.5/(E^(4.*r^2)*r^2) + 
                (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*Cos[theta]^2*
              Sin[theta]^2 + (1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*
                (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*Sin[theta]^2)*(1 + 3.*^-6*
                (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                (2 - 3*Sin[theta]^2)))^2)) - 
       3.*^-6*r*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
            (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
         (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
            0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
            ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
         (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
           (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
              E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
           ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Cos[theta]*
        Sin[theta]*((1.5*^-12*r*((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*
                 (0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
            (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
               ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
            (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                 (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
            (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
              2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
              3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
              1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
               r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                8.*r)*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))*r^3 + 
              ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
              (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 
                0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
              8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + 
              ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^
                (4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 0.75*r^2))/E^(4.*r^2)))/r^2)*Cos[theta]*Sin[theta]*
           (-9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
              (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
             ((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^5 + (6*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/
                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 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))*r^3 + 
                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2)*
             Cos[theta]^2*Sin[theta]^2 - (3*((3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
              (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2))/r^3) - 7.5*^-7*
                (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*Sin[theta]^2))/2))/
          (2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
            (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
             (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
              r^4 + (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                 E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                 E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
              r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
               2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*
                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                (0. - 8.*r)*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))*
                r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
               (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                  E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                   r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                  8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
           3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
             ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
               ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
            (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
               (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + 
                 (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*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))*
                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                    E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
           4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
              (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
            Sin[2*theta]^2) - (2.2500000000000003*^-12*r*
           ((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
             r^5 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
            (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
              (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*Cos[theta]*
           (1 + 3*Cos[2*theta])*Sin[theta]*
           (((-6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^5 + (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2)))/r^4 - (3*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                  E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^
                3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*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))*
                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                   E^(4.*r^2)))/r^2)*(1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*(
                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*Sin[theta]^2) + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
              (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                 E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
                2)*(3*((3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 - (3*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 
              (3*((21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^5 - (21*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                 (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^3 - (2*(0. + (3.*(0. - 8.*r))/
                     E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                      (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                   0.25*(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^3 + 
                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   1.5*r^2*(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)) - (8.*(1.5*(0. - 8.*r)*
                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
                Sin[theta]^2)/4)))/(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                 E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
           1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
             (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
             (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
             (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*
                (-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*
                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                (0. - 8.*r)*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))*
                r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
               (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                  E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                   r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                  8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
           3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
             ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
               ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
            (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
               (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + 
                 (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*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))*
                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                    E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
           4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
              (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
            Sin[2*theta]^2) + (1.5*^-6*Cos[theta]*Sin[theta]*
           (-0.000018*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2 + 
            6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             (1 + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2) + 
              7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*Sin[theta]^2) + (-1.5/(E^(4.*r^2)*r^2) + 
              (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                 E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
                2)*(-2 + 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + 
                (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 1.5*^-6*(
                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*Sin[theta]^2 - 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + 
                (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                      6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                      8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                  ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                  0.25*(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^3 + 
                  1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
                   (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)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                   E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                  8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 
                  1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                      (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2))*
           (r*(2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3) - 3.*^-6*r*(
                -3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
              1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*Sin[theta]^2 + 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + 
                (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                      6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                      8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                  ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                  0.25*(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^3 + 
                  1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
                   (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)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                   E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                  8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 
                  1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                      (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2)*
             (-1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
            1.3499999999999999*^-11*r*(0.75/(E^(4.*r^2)*r^2) - 
              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                 E^(4.*r^2))/r^3)*(-1.5/(E^(4.*r^2)*r^2) + 
              (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                 E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
                2)*Sin[2*theta]^2))/
          (r^2*(9.*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
             Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3) + 7.5*^-7*(
                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*Sin[theta]^2)*(1 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
           (2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 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))*r^3 + 
                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
             Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                 E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
             Sin[2*theta]^2)) + (7.5*^-7*(4*r*(7.5/(E^(4.*r^2)*r^3) - 
              (30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/
                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 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))*r^3 + 
                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2) - 
            0.000018*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - (-1.5/(E^(4.*r^2)*r^2) + 
              (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 - (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                  E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                 E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                 E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^
                2)*(-4 + 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + 
                (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])) + 
            6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             (-2 + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
                (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) + 
              1.*^-6*r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
                (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
                (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2)*(1 + 3*Cos[2*theta])))*
           (1.8*^-11*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2 + 
            (1 + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/
                    E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*Sin[theta]^2)*(2 - 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + 
                (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 1.5*^-6*(
                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*Sin[theta]^2 + 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + 
                (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                      6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                      8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                  ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                  0.25*(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^3 + 
                  1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
                   (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)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                   E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                  8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 
                  1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                      (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2) - 
            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             (4 - 3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + 
                (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 6.*^-6*(
                -1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*Cos[
                2*theta] + 3.*^-6*(5.25/(E^(4.*r^2)*r^2) - 
                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*Sin[theta]^2 + 7.5*^-7*r*(-26.25/(E^(4.*r^2)*r^3) + 
                (105*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 - (48*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                      6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                      8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                  ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                  0.25*(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^3 + 
                  1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
                   (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)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                   E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                   E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                     E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                  8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)) + 
                  1.5*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                      (64.*r^2)/E^(4.*r^2))))/r)*Sin[theta]^2) + 
            6.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
              (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
              (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                 E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
             (Cos[2*theta] - 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*Sin[theta]^4))*Sin[2*theta])/
          (r*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
                   E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 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))*r^3 + 
                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
             Sin[theta]^2 - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                 E^(4.*r^2))/r^3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(
                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
             Sin[2*theta]^2)*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
               (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                   E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                   r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                  E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
            1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
              (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
              (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*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))*
                 r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                 E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                  (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                   E^(4.*r^2)))/r)*Sin[theta]^2 - 
            3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                 (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
              ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
                (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
             Sin[2*theta]^2)) - (3.*^-6*Cos[theta]*Sin[theta]*
           (((4.5*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                 (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                   0.25*(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^3 + 
                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   1.5*r^2*(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)) - (8.*(1.5*(0. - 8.*r)*
                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
                Sin[theta]^2 + 3*(-3.75/(E^(4.*r^2)*r^3) + 
                 (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^3)*(2 - 0.000012*(0.75/(E^(4.*r^2)*r^2) - 
                   (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) + 
                 3.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                   (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2) + 
                 1.*^-6*r*(7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
                   (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) + 
                      (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                      (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                   (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2)))/r^2) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
                   (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                      (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                      ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                   (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                      (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                        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^3 - 
                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                   (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2)))/r)*Sin[theta]^2) + (7.5/(E^(4.*r^2)*
                   r^3) - (30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
                 (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^2)*(-2 + 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                   (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 
                 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                   (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                      (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                      (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                   (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2)))/r)*Sin[theta]^2 - 7.5*^-7*r*
                  (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                   (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
                      (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                      (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                   (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                       E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                         E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                        8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                         6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                      1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                      8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                         E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                         8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                         E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                     ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
                      E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (192.*r^2)/
                      E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                      r^2 + 0.25*(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^3 + 
                     1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                        E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                     1.5*r^2*(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)) - 
                     (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                        E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
                        8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
                       (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
                        E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                        E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                       8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
                  Sin[theta]^2) + 1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
                 (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^2)*((-9*(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/
                        E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
                     r^5 - (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                        E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
                       (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                       0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                       (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                       ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                    (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                        E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                          E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                       0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                          6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                       1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                       8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                          E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                          8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                          E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                          E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                      2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                      3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                      ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/
                       E^(4.*r^2) + (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                      3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
                      6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                      0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                         E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 
                      0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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^3 + 1.5*r*
                       ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                        (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
                       (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)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                       E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                         6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                      1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                      8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                        0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r^2) - (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                       E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                         8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*
                       (1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - 
                        (12.*r^2)/E^(4.*r^2) - (8.*(0. + 0.75*r^2))/
                         E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                         E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                        8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
                   Sin[theta]^2)/4 + r*(3*(22.5/(E^(4.*r^2)*r^4) - 
                     (90*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                         E^(4.*r^2)))/r^6 + (39*((1.5*r)/E^(4.*r^2) + 
                        (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                        ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 - 
                     (9*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                        (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                          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^3 - 
                        (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                          (0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                     (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                       2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*
                        r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + 
                       ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                        E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                       1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                       8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                          E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                          8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                          E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                          E^(4.*r^2)))/r^3) - (3*(157.5/(E^(4.*r^2)*r^4) - 
                      (630*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                          E^(4.*r^2)))/r^6 + (297*((1.5*r)/E^(4.*r^2) + 
                         (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                         ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^5 - 
                      (87*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                         (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                          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^3 - 
                         (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                          (0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                      (19*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                          E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                          2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                         0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                          6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                         1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                         8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                          E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                          8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                          E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                          E^(4.*r^2))))/r^3 - (4*(-48./E^(4.*r^2) + 
                         2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                          E^(4.*r^2)) + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + ((1.5*(0. - 8.*r) - 24.*r)*(0. - 
                          8.*r))/E^(4.*r^2) + ((0. + 1.5*(0. - 8.*r) - 24.*r)*
                          (0. - 8.*r))/E^(4.*r^2) + (3.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                         3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
                         6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                         0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 
                         0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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^3 + 1.5*r*
                          ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                          E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                         1.5*r^2*(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)) - 
                         (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                         ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                          E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                          (0. + 0.75*r^2) + 1.5*(-8./E^(4.*r^2) + (64.*r^2)/
                          E^(4.*r^2)) - 8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                          r)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*r^2) - (8.*(1.5*(0. - 8.*r)*r - 
                          8.*(0. + 0.75*r^2)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                          (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                          E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*
                          r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - 
                          (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                          (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
                          E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                          E^(4.*r^2)))))/r^2 + (0. + 4*(0. - (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)) + 
                        6.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(1.5*(0. - 8.*r) - 24.*r) + 
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 
                          1.5*(0. - 8.*r) - 24.*r) - (120.*(0. - 8.*r))/
                         E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + (384.*r)/E^(4.*r^2) + 
                        2*(-6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r))*r + 1.5*(-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))*r + 3.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r + 1.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^2 + 0.75*(128./
                          E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 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^2 + 
                        0.25*r^3*(-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)) + 2*r*(96./E^(4.*r^2) - 6.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) + (96.*(0. - 8.*r)*r)/
                          E^(4.*r^2)) + 3.*((-16.*(0. - 8.*r))/E^(4.*r^2) + 
                          (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
                          E^(4.*r^2)) + 6.*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)) + 
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(1.5*(0. - 8.*r)*r - 6.*r^2) + 
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2) + 
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 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.75*r^2) - 24.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                          E^(4.*r^2)) - 8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2) - 
                        8.*((4.5*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                          E^(4.*r^2) + 1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r + 0.75*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 - 
                          (24.*(0. - 8.*r)*r^2)/E^(4.*r^2)) + 1.5*r*
                         (192./E^(4.*r^2) - (8.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (256.*(0. - 8.*r)*r)/E^(4.*r^2) - (512.*r^2)/
                          E^(4.*r^2) + (64.*(0. - 8.*r)^2*r^2)/E^(4.*r^2)) + 
                        ((0. - 8.*r)*((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 
                          8.*r) - 8.*(1.5*(0. - 8.*r)*r - 6.*r^2)))/
                         E^(4.*r^2) - 8.*((0. + 1.5*(0. - 8.*r) - 24.*r)/
                          E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                          6.*r^2))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                         (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)) + 
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r)*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)) - 
                        8.*(1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. + 0.75*r^2)) + 1.5*r^2*(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))) + 3.*((128.*r)/E^(4.*r^2) - 
                          8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + 
                        ((0. - 8.*r)*((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r) - 
                          8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2))))/
                         E^(4.*r^2) - 8.*((1.5*(0. - 8.*r) - 24.*r)/
                          E^(4.*r^2) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                          8.*(0. + 0.75*r^2)))/E^(4.*r^2)) - 8.*
                         ((1.5*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                          1.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./
                          E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                          (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                          E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*
                          (0. + 0.75*r^2))/E^(4.*r^2))) + 1.5*r*
                         (128./E^(4.*r^2) - (1024.*r^2)/E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                          8.*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                          (64.*r^2)/E^(4.*r^2)))))/r)*Sin[theta]^2)/4)))*
              (-4 + 1.8*^-11*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
                (1 + 3*Cos[2*theta]) - 3.*^-6*(5.25/(E^(4.*r^2)*r^2) - 
                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*Sin[theta]^2 + 1.5*^-6*
                (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                (4 - 12*Cos[2*theta] - 3.*^-6*(5.25/(E^(4.*r^2)*r^2) - 
                   (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                      (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                      ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                   (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                      (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                        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^3 - 
                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                   (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
               9.*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                  (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
                Sin[2*theta]^2))/2 + 1.*^-6*(-0.000018*(0.75/(E^(4.*r^2)*
                   r^2) - (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2))/r^3)^2 + 
              6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 
                1.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                  (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2) + 
                7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r)*Sin[theta]^2) + 
              (-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(-2 + 
                3.*^-6*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                  (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^4 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3) - 
                1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r)*Sin[theta]^2 - 7.5*^-7*r*
                 (-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                  (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + 
                     (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                  (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                    ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                    (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r)*r + (192.*r^2)/E^(4.*r^2) - 
                    6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    0.75*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 0.75*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*r^2 + 0.25*(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^3 + 1.5*r*
                     ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                      (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 1.5*r^2*
                     (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)) - (8.*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 0.75*r^2) + 
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                    1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                    (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + 
                      (1.5*(0. - 8.*r)*r)/E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - 
                      (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/
                       E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2))))/r)*Sin[theta]^2))*
             ((3*(-26.25/(E^(4.*r^2)*r^3) + (105*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                 (48*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^4 + (13*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                      r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (3*(0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2))))/r^2 + (-48./E^(4.*r^2) + 
                   2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   ((1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   ((0. + 1.5*(0. - 8.*r) - 24.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)^2)/E^(4.*r^2) + 2*(0. - (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))*r + 4.5*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                   3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    r + (192.*r^2)/E^(4.*r^2) - 6.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 0.75*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^2 + 0.75*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^2 + 
                   0.25*(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^3 + 
                   1.5*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   1.5*r^2*(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)) - (8.*(1.5*(0. - 8.*r)*
                       r - 6.*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. + 0.75*r^2) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 
                   1.5*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) + 
                     0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2) - 
                   (8.*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/
                    E^(4.*r^2) - 8.*(1.5/E^(4.*r^2) + (1.5*(0. - 8.*r)*r)/
                      E^(4.*r^2) - (12.*r^2)/E^(4.*r^2) - (8.*(0. + 
                        0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                        0.75*r^2))/E^(4.*r^2)) + 1.5*r*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))))/r)*
                (2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/
                       E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                   ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                     0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
              3*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 
                3*Cos[2*theta] - 6.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                  (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
                 (1 + 3*Cos[2*theta]) + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
                  (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                  (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                     (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                       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^3 - 
                     (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
              9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(
                7.5/(E^(4.*r^2)*r^3) - (30*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 + 
                (15*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 - 
                (5*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^3 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2)*Sin[2*theta]^2)))/
          (2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) + 1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - 
              (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                  E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                 (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                    0.75*r^2))/E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                 (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/
                 E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 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))*r^3 + 
                ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                   E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                    r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                   8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r)*
             Sin[theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
              (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/
               r^4 + ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                 E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                 E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*(
                5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
            4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
               (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
               (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                  E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
             Sin[2*theta]^2)^2 + (3.*^-6*Sin[2*theta]*
           ((3*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 
                ((5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                      (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                   (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + 
                      (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                      0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                      (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                   (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                     2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                     3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                       (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                     8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                        E^(4.*r^2)))/r)*(1.*^-6 - 3.*^-6*Cos[2*theta]))/4) + 
              6.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^2)^2*Cos[2*theta] + 6.*^-6*r*(-1.5/(E^(4.*r^2)*r^2) + 
                (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(7.5/(E^(4.*r^2)*r^3) - 
                (30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2)*Cos[2*theta] - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3)*(3*r*(-3.75/(E^(4.*r^2)*
                    r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                       r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                  (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                   r^3) + 6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/
                      E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                  (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)*
                 Cos[2*theta]))*(-2 + 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
                 (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
              1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)*Sin[theta]^2 - 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 
                7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^2)^2*Sin[2*theta]^2) + 1.*^-6*
             (9.*^-6*(0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                 ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)^2 + 
              (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/
                   E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                    (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*
                      r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r)/4 - 3.*^-6*(-1.5/(E^(4.*r^2)*r^2) + 
                 (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^2)^2*Cos[2*theta] + 3*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3)*(-1 + 2.5*^-7*
                 (5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                     (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
                  (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r^3 - (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*
                       r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 0.75*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r)*(-1 + 3*Cos[2*theta])))*
             (-3*r*(-3.75/(E^(4.*r^2)*r^3) + (15*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^5 - 
                (6*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*(1 + 
                3*Cos[2*theta])*(1 + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
                  (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                  (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                     (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                       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^3 - 
                     (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
                  (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                    2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                    3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                    1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                    8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                       8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                       E^(4.*r^2)))/r)*Sin[theta]^2) + 
              9.*^-6*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                    (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                 (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                 (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/
                    E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                  r^2)^2*Sin[2*theta]^2 + 9.*^-6*r*(-1.5/(E^(4.*r^2)*r^2) + 
                (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^3 + (1.5/E^(4.*r^2) + 
                  (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                  0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (0. + 0.75*r^2))/E^(4.*r^2))/r^2)*(7.5/(E^(4.*r^2)*r^3) - 
                (30*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^5 + (15*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                      0.75*r^2))/E^(4.*r^2)))/r^4 - (5*(1.5/E^(4.*r^2) + 
                   (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/E^(4.*r^2) + 
                   0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                  2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     6.*r^2))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  8.*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 
                     8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 8.*((1.5*r)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/
                 r^2)*Sin[2*theta]^2 + 3.*^-6*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3)*(3*r*(-3.75/(E^(4.*r^2)*
                    r^3) + (15*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*
                       r^3)/E^(4.*r^2)))/r^5 - (6*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^4 + 
                  (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                   r^3)*(1 + 3*Cos[2*theta]) - 9*(-1.5/(E^(4.*r^2)*r^2) + 
                  (6*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)))/r^4 - (3*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                  (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/
                   r^2)*Sin[2*theta]^2))))/
          (r*(2 - 9.*^-12*(0.75/(E^(4.*r^2)*r^2) - 
                (3*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                    E^(4.*r^2)))/r^4 + ((1.5*r)/E^(4.*r^2) + 
                  (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^3 + ((0. - 8.*r)*(0. + 
                     0.75*r^2))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
             1.5*^-6*(5.25/(E^(4.*r^2)*r^2) - (21*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               (9*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
               (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2)))/r^2 + 
               (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - (24.*r)/E^(4.*r^2) + 
                 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*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))*
                  r^3 + ((0. - 8.*r)*(1.5*(0. - 8.*r)*r - 6.*r^2))/
                  E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r)*(0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                   (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                   (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                 8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                    E^(4.*r^2)))/r)*Sin[theta]^2 + 3.*^-6*
              (0.75/(E^(4.*r^2)*r^2) - (3*((0.75*r^2)/E^(4.*r^2) + 
                  (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 + 
               ((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                 0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2))/r^3)*
              (-1 + 3*Cos[2*theta] + 7.5*^-7*(5.25/(E^(4.*r^2)*r^2) - 
                 (21*((0.75*r^2)/E^(4.*r^2) + (0.25*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)))/r^4 + (9*((1.5*r)/E^(4.*r^2) + 
                    (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 0.25*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 - 
                 (2*(1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (18.*r^2)/E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*
                      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^3 - (8.*(0. + 0.75*r^2))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 0.75*r^2))/
                     E^(4.*r^2)))/r^2 + (0. + (3.*(0. - 8.*r))/E^(4.*r^2) - 
                   (24.*r)/E^(4.*r^2) + 2*(-6./E^(4.*r^2) + (0.75*(0. - 8.*r)^
                        2)/E^(4.*r^2))*r + 3.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r + 1.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 0.75*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*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))*r^3 + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 6.*r^2))/E^(4.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 0.75*r^2) + 1.5*r*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) - 8.*((1.5*r)/E^(4.*r^2) + 
                     (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*
                     (1.5*(0. - 8.*r)*r - 8.*(0. + 0.75*r^2)))/E^(4.*r^2) - 
                   8.*((1.5*r)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 0.75*r^2))/
                      E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
             4.5*^-12*(-1.5/(E^(4.*r^2)*r^2) + (6*((0.75*r^2)/E^(4.*r^2) + 
                   (0.25*(0. - 8.*r)*r^3)/E^(4.*r^2)))/r^4 - 
                (3*((1.5*r)/E^(4.*r^2) + (0.75*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   0.25*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   ((0. - 8.*r)*(0. + 0.75*r^2))/E^(4.*r^2)))/r^3 + 
                (1.5/E^(4.*r^2) + (3.*(0. - 8.*r)*r)/E^(4.*r^2) - (18.*r^2)/
                   E^(4.*r^2) + 0.75*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + (0.75*(0. - 8.*r)^2*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^3 - (8.*(0. + 0.75*r^2))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 0.75*r^2))/E^(4.*r^2))/r^2)^2*
              Sin[2*theta]^2)^2)))/(2*Sqrt[2]*r))/(Sqrt[2]*r))/2
