(((-I)*Csc[theta]*(((-1/2*I)*r*Sin[theta]*
        (1 - 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
           (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
           (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
              0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                 E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
              E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
              (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                 (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
               (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
           (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
          Sin[theta]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
           (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
               (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
           (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
          (-1 + 3*Sin[theta]^2))*
        ((-1.*^-12*((3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                   E^(4.*r^2))/r)*Sin[theta]^2)/4 + 
             3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
               (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
              (1 - 3*Sin[theta]^2))^2)/
          (-2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^4)*Sin[theta]^2)^2 - 
         (1.*^-6*(-5.*^-7*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-1 + 3*Cos[2*theta]) + (3*((-21*(0. + 
                     (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Sin[theta]^2)/2)^2 + 
            (-2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2)*
             ((3*((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                 (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^4 + (9*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 
                    1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                        (0. - 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.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                      (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                      (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                       E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + 
                 (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*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)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 
                   1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 8.*
                      (-8./E^(4.*r^2) + (0. - 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) - (128.*r)/E^(4.*r^2) + 
                   0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                     (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - 
                     (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
                      E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 
                   1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*
                Sin[theta]^2)/4 + 3*((3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^5 - (3*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^3)*(1 - 3*Sin[theta]^2))))/
          (-2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^4)*Sin[theta]^2)^2))/Sqrt[2] + 
      ((I/2)*r*Sin[theta]*(1 - 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
           (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
           (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
              0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                 E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
              E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
              (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                 (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
               (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
           (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
          Sin[theta]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
           (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
               (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
           (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
          (-1 + 3*Sin[theta]^2))*
        ((5.*^-7*(7.5*^-7*(-6.5625/(E^(4.*r^2)*r^5) - 
              (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
              (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                 E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                  (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                  (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*
                 r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*
             ((3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r))/4 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^5)*(-3 + Csc[theta]^2)) + 
            3.*^-6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
              (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                5)*(-3 + Csc[theta]^2)*((3*((-21*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r))/4 + 3*((-3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^5)*(-3 + Csc[theta]^2)) - 
            ((3*((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                 (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                 (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*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)) + (16.*(0. - 8.*r))/
                    E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 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) - (128.*r)/E^(4.*r^2) + 
                   0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                     (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - 
                     (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
                      E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 
                   1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/
                  r))/4 + 3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6)*(-3 + 
                Csc[theta]^2))*(7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - Csc[theta]^2 + 
              3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-3 + 
                Csc[theta]^2))))/(7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^4) - Csc[theta]^2 + 
            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-3 + Csc[theta]^2))^2 - 
         (5.*^-7*(-9.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
              (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
            1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4) + 7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
              (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
              (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                 E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                  (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                  (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*
                 r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r) - 2*Csc[theta]^2 + 
            3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
              (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                5)*Csc[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-3 + Csc[theta]^2))*((3*((-21*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 
                 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                 (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                   8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                   (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                  E^(4.*r^2))/r)*Sin[theta]^2)/4 + 
            3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
             (1 - 3*Sin[theta]^2)))/(r*(7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^4) - Csc[theta]^2 + 
            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-3 + Csc[theta]^2))*(-2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^4)*Sin[theta]^2)) + 
         (5.*^-7*(-9.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
              (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
            1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4) + 7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
              (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
              (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                 E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                  (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                  (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*
                 r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r) - 2*Csc[theta]^2 + 
            3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
              (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                5)*Csc[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-3 + Csc[theta]^2))*(-9.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*Cos[theta]^2*Sin[theta]^2 - 
            (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
               (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
              (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4) - 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Sin[theta]^2))/2))/
          (r*(7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4) - Csc[theta]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-3 + Csc[theta]^2))*(2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*Sin[theta]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) + 
         (1.5*^-6*Cos[theta]*(-3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
              (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*(1 + 3*Cos[2*theta]) + 
            ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
              (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^5)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(1 + 3*Cos[2*theta])))*
           (1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*Cos[theta] - Cot[theta]*Csc[theta] + 
            3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta])))/
          (r*(7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4) - Csc[theta]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*Sin[theta]^2 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2))))/Sqrt[2]))/
    (Sqrt[2]*r) + 
   ((r^2*(1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
           (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
               (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
           (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
         7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
           (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
           (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
              0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                 E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
              E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
              (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                 (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
               (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
           (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
          Sin[theta]^2)*
        ((-1.*^-12*((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
              (3.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]^2 + 
               (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*(-1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                    (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                    (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)))/4))^2)/
          (-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
            6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (1 - 3*Sin[theta]^2 + 3.75*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^2 + 
         (4.5*^-12*Cos[theta]^2*(-3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
              (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*(1 + 3*Cos[2*theta]) + 
            ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
              (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^5)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
           (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
              (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^5)*(1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4) + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2) + 
            1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5) - (3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                 (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Sin[theta]^2)/4)))/
          ((2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
           (-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) - 
         (1.*^-6*(-2.5*^-7*(6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(1 + 3*Cos[2*theta])) - 
              (3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/
               2 + 9.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-0.375/
                 (E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*Sin[2*theta]^2)*((-3*((-21*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/
               4 + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(1 - 
                3*Cos[2*theta] + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(1 + 3*Cos[2*theta]) - 7.5*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-6*(
                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Sin[2*theta]^2) + 
            ((9.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)^2*
                (1 + 3*Cos[2*theta]) + 3*((3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^5 - (3*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^3)*(2 + 3.*^-6*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (1 + 3*Cos[2*theta])) + 6*Sin[theta]^2*
                (3.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                    (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)^2*Cos[theta]^
                   2 + 3.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  ((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                   (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 
                     1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                         (0. - 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.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                       (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                       (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                        E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)*
                  Cos[theta]^2 + 7.5*^-7*((-3*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                  ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*(-2 + 3*Sin[theta]^2) + 
                 (((21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                    (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                    (9*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 
                       1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 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.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*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)) + (16.*(0. - 8.*r))/
                       E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 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) - (128.*r)/E^(4.*r^2) + 
                      0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                        (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                        (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                         E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                        (64.*r^2)/E^(4.*r^2)))/r)*(-1 + 3.*^-6*
                     (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 
                      3*Sin[theta]^2)))/4))*(-2 + 9.*^-12*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
                (1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Sin[theta]^2 - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(1 - 3*Sin[theta]^2 + 3.75*^-7*(1.3125/(E^(4.*r^2)*
                     r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                   (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
                 2))/2))/(2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*Sin[theta]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^2) - 
       3.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - 
         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
              (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
         (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
              E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
           0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
            r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
             E^(4.*r^2)))/r^4)*Cos[theta]*Sin[theta]*
        ((3.*^-12*r*Cos[theta]*Sin[theta]*
           (-9.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
              (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
              (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]^2*
             Sin[theta]^2 - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                  E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
              (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4) - 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Sin[theta]^2))/2)*
           (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
              (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^5)*(1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4) + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2) + 
            1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5) - (3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                 (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Sin[theta]^2)/4)))/
          (2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^2 + 
         (3.*^-12*r*Cos[theta]*Sin[theta]*
           (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
              (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^5)*(1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4) + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2) + 
            1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5) - (3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                 (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Sin[theta]^2)/4))*
           ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
               (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(2 + 3.*^-6*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
             (3.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[theta]^2 + 
              (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*(-1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)))/4)))/
          ((2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
           (-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
            6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (1 - 3*Sin[theta]^2 + 3.75*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) - 
         (3.*^-6*r*Cos[theta]*Sin[theta]*
           (1.*^-6*(((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4) + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Sin[theta]^2) + 1.*^-6*(
                -0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                (3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Sin[theta]^2)/4))*
             ((3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/
               4 + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
                3*Cos[2*theta] - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(1 + 3*Cos[2*theta]) + 7.5*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (1 + 3*Cos[2*theta])*Sin[theta]^2) - 9.*^-6*(
                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Sin[2*theta]^2) - 
            ((((-6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                 (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^4 - (3*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^3 + (16./E^(4.*r^2) - 
                   1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                       (0. - 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.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                     (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                     (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                      E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r^2)*
                (-1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) - 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^
                   2) - 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (3*((3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                   (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^4 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^3) - (3*((21*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                    (21*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                    (9*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (2*(16./E^(4.*r^2) - 
                       1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 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.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                         (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                         (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                        E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*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)) + (16.*(0. - 8.*r))/
                       E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 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) - (128.*r)/E^(4.*r^2) + 
                      0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                        (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                        (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                         E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                        (64.*r^2)/E^(4.*r^2)))/r)*Sin[theta]^2)/4))*
              (-4 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(1 + 3*Cos[2*theta]) - 3.*^-6*(1.3125/(E^(4.*r^2)*
                   r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
               1.5*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (4 - 12*Cos[2*theta] - 3.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-12*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
                 2))/2))/(2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*Sin[theta]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^2))/(2*Sqrt[2]*r) - 
     (r^2*(1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
           (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
               (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
           (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
         7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
           (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
           (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
              0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                 E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
              E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
              (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                 (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
               (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
           (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
          Sin[theta]^2)*
        ((5.*^-7*(-9.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
              (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
              (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]^2*
             Sin[theta]^2 - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                  E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
              (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4) - 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Sin[theta]^2))/2)*
           (r*(2 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
              6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
              1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
              7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                   E^(4.*r^2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*Sin[2*theta]^2))/
          (r^2*(9.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
                  (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]^2 - 
            (1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
              7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2)*
             (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
                3*Sin[theta]^2)))*(2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*Sin[theta]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) - 
         (5.*^-7*((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                  E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(2 + 3.*^-6*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
             (3.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[theta]^2 + 
              (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*(-1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)))/4))*
           (r*(2 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
              6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
              1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
              7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                   E^(4.*r^2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*Sin[2*theta]^2))/
          (r^2*(9.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
                  (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]^2 - 
            (1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
              7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2)*
             (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
                3*Sin[theta]^2)))*(-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*Sin[theta]^2 - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (1 - 3*Sin[theta]^2 + 3.75*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) + 
         (4.5*^-12*Cos[theta]^2*(-3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
              (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*(1 + 3*Cos[2*theta]) + 
            ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
              (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^5)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
           (-0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2 + 
            6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (1 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
              7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2) + 
            (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*(-2 + 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
              1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
              7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                   E^(4.*r^2))/r)*Sin[theta]^2)))/
          (r*(2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                 (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
           (-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) - 
         (4.5*^-12*Cos[theta]^2*(-3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
              (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*(1 + 3*Cos[2*theta]) + 
            ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
              (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^5)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
           (6.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Cos[2*theta] - 
            ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(1 + 3*Cos[2*theta])))/4 + (-0.375/(E^(4.*r^2)*r^4) - 
              (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (2 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
              6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
              1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
              7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                   E^(4.*r^2))/r)*Sin[theta]^2)))/
          (r*(2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                 (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
           (-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) - 
         (5.*^-7*r*(9.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
              Sin[theta]^2 - (1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4) + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Sin[theta]^2)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(2 - 3*Sin[theta]^2)))*
            (6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
               (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
              (-2 + 3*Sin[theta]^2)*(2 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                 (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 6.*^-6*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 1.5*^-6*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Sin[theta]^2 + 7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                 (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Sin[theta]^2) + 
             2*(-3*r*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                 (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^3 - 
                 (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^6) - 6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5) + (3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                  (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                      E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Sin[theta]^2)/2 + (3*r*
                 ((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                  (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                  (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*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)) + (16.*(0. - 8.*r))/
                     E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 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) - (128.*r)/E^(4.*r^2) + 
                    0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                      (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                      (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                       E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                      (64.*r^2)/E^(4.*r^2)))/r)*Sin[theta]^2)/4)*
              (-1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-2 + 3*Sin[theta]^2)) + 0.000027*
              ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
               (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^5)*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                r^4)*Sin[2*theta]^2 + 0.000027*((-3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
               (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
               (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2) - 
           (3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
               (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
              (-2 + 3*Sin[theta]^2)*(1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4) + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Sin[theta]^2) + 1.*^-6*
              (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
               (3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Sin[theta]^2)/4)*(1 + 3.*^-6*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (2 - 3*Sin[theta]^2)) + 4.5*^-12*
              ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
               (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
               (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
               (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2)*
            (r*(2 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                 (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 6.*^-6*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 1.5*^-6*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Sin[theta]^2 + 7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                 (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
              (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
              (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)*Sin[2*theta]^2))/
          (2*r^2*(-9.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
              Sin[theta]^2 + (1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4) + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Sin[theta]^2)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(2 - 3*Sin[theta]^2)))^2) + 
         (1.5*^-6*(3.*^-6*((1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 + 
              9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2 - 
              3.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[2*theta] + 
              3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(-1 + 3*Cos[2*theta])))*
             (-3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) + 
              ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(1 + 3*Cos[2*theta])))*Sin[2*theta]^2 + 
            Cos[theta]^2*(-3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) + 
              ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(1 + 3*Cos[2*theta])))*(-2 + 9.*^-12*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(1 + 
                3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
              3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              4.5*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
                2) - (-3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) + 
              ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
             (-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*
                  r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
              3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              4.5*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
                2) + 6.*^-6*(-3*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4) + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4))*Cos[theta]*Sin[theta]*Sin[2*theta]*
             (-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*
                  r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
              3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              4.5*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
                2)))/(r*(2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*
                 r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
             3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
              (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
             4.5*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^2)) - 
       3.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - 
         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
              (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
         (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
              E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
           0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
            r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
             E^(4.*r^2)))/r^4)*Cos[theta]*Sin[theta]*
        ((1.5*^-6*Cos[theta]*Sin[theta]*
           (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
              (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^5)*(1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4) + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2) + 
            1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5) - (3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                 (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Sin[theta]^2)/4))*
           (r*(2 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
              6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
              1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
              7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                   E^(4.*r^2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*Sin[2*theta]^2))/
          (r*(9.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]^2 - 
            (1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
              7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2)*
             (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
                3*Sin[theta]^2)))*(2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*Sin[theta]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) + 
         (1.5*^-6*Cos[theta]*(-3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
              (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*(1 + 3*Cos[2*theta]) + 
            ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
              (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^5)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]*
           (1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2 + 
            (1 + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2)*
             (2 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
              1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
              7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                   E^(4.*r^2))/r)*Sin[theta]^2) - 
            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (4 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
              6.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[2*theta] + 3.*^-6*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
              7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                   E^(4.*r^2))/r)*Sin[theta]^2) + 
            6.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*(Cos[2*theta] - 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^4)))/
          ((-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
            6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (1 - 3*Sin[theta]^2 + 3.75*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
           (-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) - 
         (3.*^-6*Cos[theta]*Sin[theta]*
           (1.*^-6*(-0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(1 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Sin[theta]^2) + 
              (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(-2 + 3.*^-6*r*(-0.9375/(E^(4.*r^2)*
                    r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                  (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5) - 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Sin[theta]^2 - 7.5*^-7*r*
                 (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Sin[theta]^2))*
             ((3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/
               4 + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-1 + 
                3*Cos[2*theta] - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(1 + 3*Cos[2*theta]) + 7.5*^-7*(1.3125/(E^(4.*r^2)*
                    r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                      E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                  (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (1 + 3*Cos[2*theta])*Sin[theta]^2) - 9.*^-6*(
                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Sin[2*theta]^2) + 
            ((4.5*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Sin[theta]^2 + 3*
                ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (2 - 0.000012*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + 2.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^
                   2) + ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (-2 + 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                   (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - 
                 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
                 7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Sin[theta]^2) + 1.*^-6*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                ((-3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Sin[theta]^2)/2 + 
                 r*(3*((15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                      r^5 - (6*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                     (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                       0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r)/r^3 - (15*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) - 
                   (3*((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^5 - (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                      (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                      (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + 
                      (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*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)) + (16.*(0. - 8.*r))/
                         E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 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) - (128.*r)/E^(4.*r^2) + 
                        0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                          (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                          (64.*r^2)/E^(4.*r^2)))/r)*Sin[theta]^2)/4)))*
              (-4 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(1 + 3*Cos[2*theta]) - 3.*^-6*(1.3125/(E^(4.*r^2)*
                   r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
               1.5*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (4 - 12*Cos[2*theta] - 3.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-12*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
                 2))/2))/(2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*Sin[theta]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^2 + 
         (7.5*^-7*Sin[2*theta]*(-8.*^-6*((1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 + 
              9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2 - 
              3.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[2*theta] + 
              3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(-1 + 3*Cos[2*theta])))*
             (-9.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[theta]^2*Sin[theta]^2 - 
              (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) - 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2))/
               2) + (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1.*^-6 - 
                   3.*^-6*Cos[2*theta]))/4) + 3.*^-6*(
                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[2*theta])*
             (-8 + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*(1 + 3*Cos[2*theta]) - 6.*^-6*(1.3125/(E^(4.*r^2)*
                  r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
              3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(4 - 
                12*Cos[2*theta] - 3.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              1.8*^-11*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
                2)))/(2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                 (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^2))/(2*Sqrt[2]*r))/
    (Sqrt[2]*r))/2 + 
 ((I*Csc[theta]*(((-1/2*I)*r*Sin[theta]*
        (1 - 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
           (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
           (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
              0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                 E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
              E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
              (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                 (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
               (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
           (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
          Sin[theta]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
           (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
               (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
           (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
          (-1 + 3*Sin[theta]^2))*
        ((-5.*^-7*(-9.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
              (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
            1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4) + 7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
              (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
              (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                 E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                  (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                  (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*
                 r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r) - 2*Csc[theta]^2 + 
            3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
              (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                5)*Csc[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-3 + Csc[theta]^2))*((3*((-21*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 
                 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 0.1875*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                 (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                   8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                   (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                  E^(4.*r^2))/r)*Sin[theta]^2)/4 + 
            3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
             (1 - 3*Sin[theta]^2)))/(r*(7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^4) - Csc[theta]^2 + 
            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-3 + Csc[theta]^2))*(-2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^4)*Sin[theta]^2)) - 
         (1.*^-6*((-2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*
                  r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2)*
             ((3*((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                 (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                 (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*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)) + (16.*(0. - 8.*r))/
                    E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 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) - (128.*r)/E^(4.*r^2) + 
                   0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                     (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - 
                     (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
                      E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 
                   1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*
                Sin[theta]^2)/4 + 3*((15*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^5 - (6*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^3 - 
                (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^6)*(1 - 3*Sin[theta]^2)) - 
            (3.*^-6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^5)*(-1 + 3*Cos[2*theta]) + 
              1.5*^-6*(-6.5625/(E^(4.*r^2)*r^5) - 
                (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                   E^(4.*r^2))/r)*Sin[theta]^2)*
             ((3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Sin[theta]^2)/4 + 
              3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(1 - 
                3*Sin[theta]^2))))/(-2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^4)*Sin[theta]^2)^2 + 
         (5.*^-7*(-9.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
              (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
            1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4) + 7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
              (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
              (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                 E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                  (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                  (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*
                 r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r) - 2*Csc[theta]^2 + 
            3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
              (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                5)*Csc[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-3 + Csc[theta]^2))*(-9.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*Cos[theta]^2*Sin[theta]^2 - 
            (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
               (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
              (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4) - 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Sin[theta]^2))/2))/
          (r*(7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4) - Csc[theta]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-3 + Csc[theta]^2))*(2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*Sin[theta]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) + 
         (1.5*^-6*Cos[theta]*(-3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
              (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*(1 + 3*Cos[2*theta]) + 
            ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
              (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^5)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(1 + 3*Cos[2*theta])))*
           (1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*Cos[theta] - Cot[theta]*Csc[theta] + 
            3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta])))/
          (r*(7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4) - Csc[theta]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*Sin[theta]^2 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2))))/Sqrt[2] + 
      ((I/2)*r*Sin[theta]*(1 - 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
           (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
           (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
              0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                 E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
              E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
              (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                 (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
               (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
           (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
          Sin[theta]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
           (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
               (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
           (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
          (-1 + 3*Sin[theta]^2))*
        (-1/4*(-9.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                  (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 
                 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^5) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
               (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
               (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4) + 7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
               (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
               (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r))/r^2 + (105*
                 (0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                  E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                   (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                   (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*
                  r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r) - 2*Csc[theta]^2 + 
             3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                  (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 
                 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^5)*Csc[theta]^2 + 
             6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-3 + Csc[theta]^
                2))^2/(r^2*(7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) - Csc[theta]^2 + 
              3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-3 + 
                Csc[theta]^2))^2) + 
         (7.5*^-13*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
            (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
              0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                 E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*
                 (0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(1 + 3*Cos[2*theta])*
           ((3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
               (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r))/r^2 + (21*
                 (0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                  E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                   (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                   (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*
                  r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*Sin[theta]^2)/4 + 
            3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
             (1 - 3*Sin[theta]^2)))/(-2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
             (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                 (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
            (-1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
             (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
             (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                  E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                 (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                 E^(4.*r^2)))/r^4)*Sin[theta]^2) + 
         (1.125*^-12*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)^2 - 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
             (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
             (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                  E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                 (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                 E^(4.*r^2)))/r^4)*(7.5*^-7*r^2*(39.375/(E^(4.*r^2)*r^6) + 
               (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
               (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r))/r^4 + (19*(0. + 0.125*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
               (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*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)) + (16.*(0. - 8.*r))/E^(4.*r^2) - 
                 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
                 0.125*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 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) - (128.*r)/
                  E^(4.*r^2) + 0.0625*r*(-5120./E^(4.*r^2) + 128.*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   8.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                   (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - 
                   (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
                    E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 
                 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r) + 
             4*Csc[theta]^2 - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                r^4)*(-1 + 3*Cos[2*theta])*Csc[theta]^2 + 
             3.*^-6*r^2*(5.625/(E^(4.*r^2)*r^6) + (39*(0. + 
                  (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - (9*(-1./E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r)/r^3 - (90*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^6)*(-3 + Csc[theta]^2)) + 
           (2.25*^-12*r^2*(-6.5625/(E^(4.*r^2)*r^5) - 
                (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                   E^(4.*r^2))/r)^2 + 9.000000000000001*^-12*r^2*
              (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^5)*(-6.5625/(E^(4.*r^2)*r^5) - 
               (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
               (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r))/r^2 + (105*
                 (0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                  E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                   (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                   (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*
                  r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r)*(-1 + 3*Cos[2*theta])*
              Csc[theta]^2 + 9.*^-12*r^2*(-0.9375/(E^(4.*r^2)*r^5) - 
                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)^2*
              (1 - 3*Cos[2*theta])^2*Csc[theta]^4 + 1.8*^-11*
              (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
              (1 - 3*Cos[2*theta])^2*Csc[theta]^4 + 4*Csc[theta]^2*
              (7.5*^-7*r^2*(39.375/(E^(4.*r^2)*r^6) + 
                 (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                 (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^4 + (19*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                 (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*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)) + (16.*(0. - 8.*r))/
                    E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 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) - (128.*r)/E^(4.*r^2) + 
                   0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                     (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - 
                     (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
                      E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 
                   1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/
                  r) + 2*Csc[theta]^2 + 3.*^-6*r^2*(5.625/(E^(4.*r^2)*r^6) + 
                 (39*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^3 - 
                 (90*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^6)*(-3 + Csc[theta]^2)) - 3.*^-6*(0.1875/(E^(4.*r^2)*
                 r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                r^4)*(-1 + 3*Cos[2*theta])*Csc[theta]^4*(8 + 3.*^-6*r^2*
                (5.625/(E^(4.*r^2)*r^6) + (39*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^5 - (9*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^3 - 
                 (90*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^6)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*r^2*
                (39.375/(E^(4.*r^2)*r^6) + (297*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^5 - (87*(-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^4 + (19*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                 (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*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)) + (16.*(0. - 8.*r))/
                    E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 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) - (128.*r)/E^(4.*r^2) + 
                   0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                     (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)^2 - 
                     (72.*(0. - 8.*r)^4)/E^(4.*r^2) + (0. - 8.*r)^6/
                      E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/E^(4.*r^2)) - 
                   1.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))/r)*
                Sin[theta]^2))/4)/(2*r^2*(7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
               (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
               (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4) - Csc[theta]^2 + 
             3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-3 + Csc[theta]^
                2))^2) + (7.5*^-7*(4*r*(1.875/(E^(4.*r^2)*r^5) + 
              (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
              (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                r^4)^2*(1 + 3*Cos[2*theta]) - (-0.375/(E^(4.*r^2)*r^4) - 
              (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-4 + 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(1 + 
                3*Cos[2*theta])) + 6*(0.1875/(E^(4.*r^2)*r^4) + 
              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-2 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
                (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(1 + 3*Cos[2*theta]) + 1.*^-6*(-0.375/(E^(4.*r^2)*
                  r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(1 + 3*Cos[2*theta])))*Csc[theta]*
           (1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*Cos[theta] - Cot[theta]*Csc[theta] + 
            3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta]))*
           Sin[2*theta])/(r^2*(7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^4) - Csc[theta]^2 + 
            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*Sin[theta]^2 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) + 
         (2.5*^-7*(-9.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
              (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
            1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4) + 7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
              (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
              (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r))/r^2 + (105*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^5 + (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - (1.*(0. - 8.*r)^2)/
                 E^(4.*r^2) + 0.0625*(0. - 8.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                  (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                  (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*
                 r + (8.*(0. - 8.*r)*r)/E^(4.*r^2))/r) - 2*Csc[theta]^2 + 
            3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
              (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                5)*Csc[theta]^2 + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-3 + Csc[theta]^2))*(-3*r*(-0.9375/(E^(4.*r^2)*r^5) - 
              (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
             (1 + 3*Cos[2*theta])*(1 + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2) + 
            9.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
              (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*Sin[2*theta]^2 + 9.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
               (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
               (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2 + 
            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^5)*(1 + 3*Cos[2*theta]) - 
              9*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Sin[2*theta]^2)))/
          (r^2*(7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^4) - Csc[theta]^2 + 
            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*Sin[theta]^2 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2))))/Sqrt[2]))/
    (Sqrt[2]*r) - 
   ((r^2*(1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
           (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
               (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
           (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
         7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
           (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
           (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
              0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                 E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
              E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
              (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                 (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
               (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
           (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
          Sin[theta]^2)*
        ((5.*^-7*(-9.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
              (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
              (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]^2*
             Sin[theta]^2 - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                  E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
              (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4) - 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Sin[theta]^2))/2)*
           (r*(2 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
              6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
              1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
              7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                   E^(4.*r^2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*Sin[2*theta]^2))/
          (r^2*(9.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
                  (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]^2 - 
            (1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
              7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2)*
             (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
                3*Sin[theta]^2)))*(2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*Sin[theta]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) - 
         (5.*^-7*((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                  E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(2 + 3.*^-6*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
             (3.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[theta]^2 + 
              (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*(-1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)))/4))*
           (r*(2 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
              6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
              1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
              7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                   E^(4.*r^2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*Sin[2*theta]^2))/
          (r^2*(9.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
                  (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]^2 - 
            (1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
              7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2)*
             (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
                3*Sin[theta]^2)))*(-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*Sin[theta]^2 - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (1 - 3*Sin[theta]^2 + 3.75*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) - 
         (4.5*^-12*Cos[theta]^2*(-3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
              (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*(1 + 3*Cos[2*theta]) + 
            ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
              (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^5)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
           (6.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Cos[2*theta] - 
            ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(1 + 3*Cos[2*theta])))/4 + (-0.375/(E^(4.*r^2)*r^4) - 
              (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (2 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
              6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
              1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
              7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                   E^(4.*r^2))/r)*Sin[theta]^2)))/
          (r*(2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                 (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
           (-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) + 
         (2.25*^-12*Cos[theta]*(4*r*(1.875/(E^(4.*r^2)*r^5) + 
              (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
              (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                r^4)^2*(1 + 3*Cos[2*theta]) - (-0.375/(E^(4.*r^2)*r^4) - 
              (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-4 + 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(1 + 
                3*Cos[2*theta])) + 6*(0.1875/(E^(4.*r^2)*r^4) + 
              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-2 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
                (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(1 + 3*Cos[2*theta]) + 1.*^-6*(-0.375/(E^(4.*r^2)*
                  r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]*
           (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
              (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^5)*(1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4) + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2) + 
            1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5) - (3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                 (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Sin[theta]^2)/4))*Sin[2*theta])/
          (r*(2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                 (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
           (-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) - 
         (2.5*^-7*(1.*^-6*((-3*(-6.5625/(E^(4.*r^2)*r^5) - 
                 (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/
               4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^5)*(1 - 3*Cos[2*theta] + 6.*^-6*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (1 + 3*Cos[2*theta]) - 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              9.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Sin[2*theta]^2)*
             (-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(2 + 
                3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (1 + 3*Cos[2*theta])) + (3*((-21*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 + (9*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/
               2 - 9.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-0.375/
                 (E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*Sin[2*theta]^2) + 
            2*(9.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.9375/(E^(4.*r^2)*r^5) - 
                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(1 + 
                3*Cos[2*theta]) + 3*((15*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^5 - (6*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^3 - 
                (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^6)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(1 + 3*Cos[2*theta])) + 6*Sin[theta]^2*(
                3.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5)*((6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5)*Cos[theta]^2 + 3.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 ((-30*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 + 
                  (15*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^4 - (5*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r^2)*Cos[theta]^2 + 7.5*^-7*
                 (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 ((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*(-2 + 3*Sin[theta]^2) + 
                (((105*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^5 - 
                   (48*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                   (13*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                   (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*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)) + (16.*(0. - 8.*r))/
                      E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 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) - (128.*r)/E^(4.*r^2) + 
                     0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                       (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                       (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                        E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                       (64.*r^2)/E^(4.*r^2)))/r)*(-1 + 3.*^-6*
                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                        (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-2 + 
                     3*Sin[theta]^2)))/4))*(-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*
                   r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*
                  r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
              6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 - 
                3*Sin[theta]^2 + 3.75*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              4.5*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
                2)))/(2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                 (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^2 + 
         (1.5*^-6*(3.*^-6*((1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 + 
              9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2 - 
              3.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[2*theta] + 
              3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(-1 + 3*Cos[2*theta])))*
             (-3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) + 
              ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(1 + 3*Cos[2*theta])))*Sin[2*theta]^2 + 
            Cos[theta]^2*(-3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) + 
              ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(1 + 3*Cos[2*theta])))*(-2 + 9.*^-12*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*(1 + 
                3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
              3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              4.5*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
                2) - (-3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]) + 
              ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]^2*
             (-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*
                  r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
              3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              4.5*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
                2) + 6.*^-6*(-3*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^4 - (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r^2 - (6*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4) + 3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4))*Cos[theta]*Sin[theta]*Sin[2*theta]*
             (-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*
                  r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
              3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              4.5*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
                2)))/(r*(2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*
                 r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
             3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
              (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
             4.5*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^2)) - 
       3.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - 
         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
              (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
         (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
              E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
           0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
            r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
             E^(4.*r^2)))/r^4)*Cos[theta]*Sin[theta]*
        ((-3.*^-12*Cos[theta]*Sin[theta]*
           (-9.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
              (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
              (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[theta]^2*
             Sin[theta]^2 - (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                  E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
              (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4) - 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Sin[theta]^2))/2)*
           (-0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2 + 
            6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (1 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
              7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2) + 
            (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*(-2 + 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
              1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
              7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                   E^(4.*r^2))/r)*Sin[theta]^2)))/
          (2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^2 + 
         (3.*^-12*Cos[theta]*Sin[theta]*(-0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                r^4)^2 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (1 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
              7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2) + 
            (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*(-2 + 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
              1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
              7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                   E^(4.*r^2))/r)*Sin[theta]^2))*
           ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
               (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(2 + 3.*^-6*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
             (3.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[theta]^2 + 
              (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*(-1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)))/4)))/
          ((2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
           (-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
            6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (1 - 3*Sin[theta]^2 + 3.75*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) + 
         (1.5*^-6*Cos[theta]*(-3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
              (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*(1 + 3*Cos[2*theta]) + 
            ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
              (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^5)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]*
           (1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2 + 
            (1 + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2)*
             (2 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
              1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
              7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                   E^(4.*r^2))/r)*Sin[theta]^2) - 
            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (4 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
              6.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[2*theta] + 3.*^-6*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
              7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                   E^(4.*r^2))/r)*Sin[theta]^2) + 
            6.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*(Cos[2*theta] - 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^4)))/
          ((-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
            6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (1 - 3*Sin[theta]^2 + 3.75*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
           (-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) + 
         (1.5*^-12*Cos[theta]*Sin[theta]*
           (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
              (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^5)*(1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4) + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2) + 
            1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5) - (3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                 (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Sin[theta]^2)/4))*
           (-3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
              (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                5)*(1 + 3*Cos[2*theta])*(1 + 7.5*^-7*(1.3125/(E^(4.*r^2)*
                  r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2) + 
            9.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
              (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*Sin[2*theta]^2 + 9.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
               (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
               (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2 + 
            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^5)*(1 + 3*Cos[2*theta]) - 
              9*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Sin[2*theta]^2)))/
          ((2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
           (-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) - 
         (3.*^-6*Cos[theta]*Sin[theta]*
           (1.*^-6*r*(((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4) + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Sin[theta]^2) + 1.*^-6*(
                -0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                (3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Sin[theta]^2)/4))*
             ((3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/
               4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^5)*(-1 + 3*Cos[2*theta] - 6.*^-6*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (1 + 3*Cos[2*theta]) + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
              9.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Sin[2*theta]^2) - 
            (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4) + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Sin[theta]^2) + 1.*^-6*(
                -0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                (3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Sin[theta]^2)/4))*
             (2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*
                  r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
              3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
              4.5*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
                2) - r*(((-30*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^5 + (15*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 - 
                (5*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r))/r^3 + (30*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 + 
                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                   E^(4.*r^2))/r^2)*(1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4) + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Sin[theta]^2) + 1.*^-6*(
                1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^5) - (3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                    r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Sin[theta]^2)/4) - 1.*^-6*(
                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                  (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                (3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Sin[theta]^2)/4) + 1.*^-6*(
                -0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(3*((15*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^5 - (6*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^3 - 
                  (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^6) - (3*((105*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^5 - (48*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^4 + (13*(0. + 0.125*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                      0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^3 - (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                   (3*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*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)) + (16.*(0. - 8.*r))/
                      E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 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) - (128.*r)/E^(4.*r^2) + 
                     0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                       (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                       (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                        E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                       (64.*r^2)/E^(4.*r^2)))/r)*Sin[theta]^2)/4))*
             (2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*
                  r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
              3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
              4.5*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
                2)))/(2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                 (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^2 + 
         (7.5*^-7*Sin[2*theta]*(-8.*^-6*((1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 + 
              9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2 - 
              3.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[2*theta] + 
              3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(-1 + 3*Cos[2*theta])))*
             (-9.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[theta]^2*Sin[theta]^2 - 
              (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) - 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2))/
               2) + (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4) + ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1.*^-6 - 
                   3.*^-6*Cos[2*theta]))/4) + 3.*^-6*(
                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[2*theta])*
             (-8 + 3.6*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*(1 + 3*Cos[2*theta]) - 6.*^-6*(1.3125/(E^(4.*r^2)*
                  r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
              3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(4 - 
                12*Cos[2*theta] - 3.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              1.8*^-11*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
                2)))/(2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                 (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^2))/(2*Sqrt[2]*r) - 
     (r^2*(1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
           (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
               (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
           (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
         7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
           (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
           (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
              0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                 E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
              E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
              (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                 (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
               (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
           (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
          Sin[theta]^2)*
        (-1/4*(r*(2 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                 (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 6.*^-6*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 1.5*^-6*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Sin[theta]^2 + 7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                 (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
              (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
              (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)*Sin[2*theta]^2)^2/
           (r^4*(9.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^
                2*Sin[theta]^2 - (1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4) + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Sin[theta]^2)*(1 + 3.*^-6*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (2 - 3*Sin[theta]^2)))^2) + 
         (7.5*^-13*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
            (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
              0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                 E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*
                 (0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(1 + 3*Cos[2*theta])*
           ((3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
               (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(2 + 3.*^-6*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
             (3.*^-6*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[theta]^2 + 
              (((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (2*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*(-1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*(-2 + 3*Sin[theta]^2)))/4)))/
          (-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
            (1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
             (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
             (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                  E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                 (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                 E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
           6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
            (1 - 3*Sin[theta]^2 + 3.75*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
               (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
               (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
           4.5*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)^2*Sin[2*theta]^2) + 
         (2.25*^-12*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
            (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
              0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
              0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
            (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
           Cos[theta]^2*(-3.*^-6*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*(1 + 3*Cos[2*theta]) + 
            ((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
              (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^5)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]^2)/
          (-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
            (1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
             (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
             (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                  E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                 (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                 E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
           3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
            (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
               (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
               (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
           4.5*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)^2*Sin[2*theta]^2) + (2.25*^-12*Cos[theta]*
           (4*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
              (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                 (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) - (-0.375/(E^(4.*r^2)*r^4) - 
              (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-4 + 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(1 + 
                3*Cos[2*theta])) + 6*(0.1875/(E^(4.*r^2)*r^4) + 
              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-2 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
                (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(1 + 3*Cos[2*theta]) + 1.*^-6*(-0.375/(E^(4.*r^2)*
                  r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]*
           (-0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2 + 
            6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (1 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
              7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2) + 
            (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*(-2 + 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
              1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
              7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                   E^(4.*r^2))/r)*Sin[theta]^2))*Sin[2*theta])/
          (r^2*(2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                 (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
           (-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) - 
         (2.25*^-12*Cos[theta]*(4*r*(1.875/(E^(4.*r^2)*r^5) + 
              (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
              (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                r^4)^2*(1 + 3*Cos[2*theta]) - (-0.375/(E^(4.*r^2)*r^4) - 
              (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-4 + 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(1 + 
                3*Cos[2*theta])) + 6*(0.1875/(E^(4.*r^2)*r^4) + 
              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-2 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
                (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(1 + 3*Cos[2*theta]) + 1.*^-6*(-0.375/(E^(4.*r^2)*
                  r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(1 + 3*Cos[2*theta])))*Sin[theta]*
           (6.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Cos[2*theta] - 
            ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(1 + 3*Cos[2*theta])))/4 + (-0.375/(E^(4.*r^2)*r^4) - 
              (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (2 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
              6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
              1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
              7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                   E^(4.*r^2))/r)*Sin[theta]^2))*Sin[2*theta])/
          (r^2*(2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                 (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
           (-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) + 
         (2.5*^-7*(r*(2 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
              6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
              1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
              7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                   E^(4.*r^2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*Sin[2*theta]^2)*(-3*r*(-0.9375/(E^(4.*r^2)*r^5) - 
              (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
             (1 + 3*Cos[2*theta])*(1 + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2) + 
            9.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
              (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*Sin[2*theta]^2 + 9.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
               (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
               (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2 + 
            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^5)*(1 + 3*Cos[2*theta]) - 
              9*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Sin[2*theta]^2)))/
          (r^3*(9.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
                  (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]^2 - 
            (1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
              7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2)*
             (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
                3*Sin[theta]^2)))*(-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*Sin[theta]^2 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) - 
         (r*(9.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]^2 - 
             (1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 7.5*^-7*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Sin[theta]^2)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(2 - 3*Sin[theta]^2)))*
            (3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + 
                  (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 
                 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^5)*(-2 + 3*Sin[theta]^2)*(2 - 3.*^-6*r*
                (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 6.*^-6*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 1.5*^-6*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Sin[theta]^2 + 7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                 (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Sin[theta]^2) + 
             (2 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                 (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 6.*^-6*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 1.5*^-6*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Sin[theta]^2 + 7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                 (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-2 + 3*Sin[theta]^2)) + 1.*^-6*r*(-3*r*(5.625/(E^(4.*r^2)*
                   r^6) + (39*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^5 - (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r)/r^3 - (90*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6) - 9*
                (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
               (9*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Sin[theta]^2)/4 + (3*r*
                 (39.375/(E^(4.*r^2)*r^6) + (297*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^5 - (87*(-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^4 + (19*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                  (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^2 + (0. - 2.*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*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)) + (16.*(0. - 8.*r))/
                     E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 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) - (128.*r)/E^(4.*r^2) + 
                    0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                      (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                      (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                       E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                      (64.*r^2)/E^(4.*r^2)))/r)*Sin[theta]^2)/4)*
              (-1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
              (1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^5)*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                r^4)*Sin[2*theta]^2 + 1.3499999999999999*^-11*r*
              (-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
               (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
               (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2 + 
             1.3499999999999999*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)*Sin[2*theta]^2) - 
           2*(9.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]^2 - 
             (1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 7.5*^-7*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Sin[theta]^2)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(2 - 3*Sin[theta]^2)))*
            (r*(2 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                 (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 6.*^-6*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 1.5*^-6*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Sin[theta]^2 + 7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                 (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
              (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
              (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)*Sin[2*theta]^2) - 
           r*(3.*^-6*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^5)*(-2 + 3*Sin[theta]^2)*(1 - 3.*^-6*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 7.5*^-7*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Sin[theta]^2) + 1.*^-6*(3*(-0.9375/(E^(4.*r^2)*r^5) - 
                 (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
               (3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Sin[theta]^2)/4)*(1 + 3.*^-6*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (2 - 3*Sin[theta]^2)) + 4.5*^-12*(1.875/(E^(4.*r^2)*r^5) + 
               (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
               (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r)/r^2 - (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^5)*(-0.375/(E^(4.*r^2)*r^4) - 
               (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
               (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]^2)*
            (r*(2 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                 (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 6.*^-6*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 1.5*^-6*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Sin[theta]^2 + 7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                 (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                 (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
              (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
              (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)*Sin[2*theta]^2))/
          (2*r^3*(-9.*^-12*(-0.375/(E^(4.*r^2)*r^4) - 
                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[theta]^2*
              Sin[theta]^2 + (1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4) + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Sin[theta]^2)*(1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(2 - 3*Sin[theta]^2)))^2) + 
         (7.5*^-7*(-6.*^-6*((1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 + 
              9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2 - 
              3.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[2*theta] + 
              3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(-1 + 3*Cos[2*theta])))*
             (-4*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5) + 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*(1 + 3*Cos[2*theta]) + (-0.375/(E^(4.*r^2)*r^4) - 
                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-4 + 
                3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                  (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (1 + 3*Cos[2*theta])) - 6*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(-2 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
                  (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5)*(1 + 3*Cos[2*theta]) + 
                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (1 + 3*Cos[2*theta])))*Sin[2*theta]^2 + 2*Cos[2*theta]*
             (4*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*(1 + 3*Cos[2*theta]) - (-0.375/(E^(4.*r^2)*r^4) - 
                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-4 + 
                3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                  (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (1 + 3*Cos[2*theta])) + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(-2 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
                  (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5)*(1 + 3*Cos[2*theta]) + 
                1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (1 + 3*Cos[2*theta])))*(-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*
                   r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*
                  r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
              3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              4.5*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
                2) + 6.*^-6*(18*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2 + 3*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-0.375/
                 (E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4) - 6*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4 + r*(1.875/(E^(4.*r^2)*r^5) + 
                  (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                  (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                  (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5)))*Sin[2*theta]^2*
             (-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*
                  r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
              3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              4.5*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
                2)))/(r^2*(2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*
                 r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
             3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
              (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
             4.5*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^2)) - 
       3.*^-6*r*(-0.375/(E^(4.*r^2)*r^4) - 
         (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
              (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
         (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
              E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
           0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
            r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
             E^(4.*r^2)))/r^4)*Cos[theta]*Sin[theta]*
        ((1.5*^-12*r*((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
            (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
              0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
              0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
            (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
           Cos[theta]*Sin[theta]*(-9.*^-6*((6*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^4 - (3*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*Cos[theta]^2*Sin[theta]^2 - 
            (3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
               (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
              (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4) - 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*Sin[theta]^2))/2))/
          (2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
            (1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
             (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
             (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                  E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                 (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                 E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
           3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
            (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
               (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
               (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
           4.5*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)^2*Sin[2*theta]^2) - (2.2500000000000003*^-12*r*
           ((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
            (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
              0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                 E^(4.*r^2))*r)/r^3 + (3*(0.0625/E^(4.*r^2) + (0.0625*
                 (0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*Cos[theta]*
           (1 + 3*Cos[2*theta])*Sin[theta]*
           (((6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
              (3*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r^2 - (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^5)*(1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4) + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2) + 
            1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*(3*((-3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5) - (3*((-21*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^4 + (9*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                 (2*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                     E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Sin[theta]^2)/4)))/
          (2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
            (1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
             (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
             (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                  E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                 (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                 E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
           3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
            (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
               (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
               (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
           4.5*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)^2*Sin[2*theta]^2) + (1.5*^-6*Cos[theta]*Sin[theta]*
           (-0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2 + 
            6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (1 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
              7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2) + 
            (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*(-2 + 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
              1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
              7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                   E^(4.*r^2))/r)*Sin[theta]^2))*
           (r*(2 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
              6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
              1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
              7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                   E^(4.*r^2))/r)*Sin[theta]^2)*(-1 + 3.*^-6*(0.1875/
                 (E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*Sin[2*theta]^2))/
          (r^2*(9.*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + 
                  (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Cos[theta]^2*Sin[theta]^2 - 
            (1 - 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
              7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2)*
             (1 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(2 - 
                3*Sin[theta]^2)))*(2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*Sin[theta]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) + 
         (7.5*^-7*(4*r*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + 
                 (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 
                 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
              (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                5) - 0.000018*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                 (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) - (-0.375/(E^(4.*r^2)*r^4) - 
              (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
              (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-4 + 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(1 + 
                3*Cos[2*theta])) + 6*(0.1875/(E^(4.*r^2)*r^4) + 
              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-2 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
                (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(1 + 3*Cos[2*theta]) + 1.*^-6*(-0.375/(E^(4.*r^2)*
                  r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(1 + 3*Cos[2*theta])))*
           (1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2 + 
            (1 + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2)*
             (2 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
              1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
              7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                   E^(4.*r^2))/r)*Sin[theta]^2) - 
            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (4 - 3.*^-6*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
              6.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Cos[2*theta] + 3.*^-6*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
              7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - 
                (48*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                  (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                    8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                   E^(4.*r^2))/r)*Sin[theta]^2) + 
            6.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
              (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*(Cos[2*theta] - 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^4))*
           Sin[2*theta])/(r*(-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*Sin[theta]^2 - 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (1 - 3*Sin[theta]^2 + 3.75*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)*
           (-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                  E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
            3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)) - 
         (3.*^-6*Cos[theta]*Sin[theta]*
           (1.*^-6*(-0.000018*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2 + 6*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(1 + 1.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Sin[theta]^2) + 
              (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*(-2 + 3.*^-6*r*(-0.9375/(E^(4.*r^2)*
                    r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                   r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                  (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^5) - 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Sin[theta]^2 - 7.5*^-7*r*
                 (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                     0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                  (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                    (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                     E^(4.*r^2))/r)*Sin[theta]^2))*
             ((3*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*(2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta]))*Sin[theta]^2)/
               4 + 3*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^5)*(-1 + 3*Cos[2*theta] - 6.*^-6*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                 (1 + 3*Cos[2*theta]) + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
              9.*^-6*(1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Sin[2*theta]^2) + 
            ((4.5*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^4 + (13*(-1./E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 - (3*(0. + 0.125*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                    0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                 (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                   (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                     8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                     (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                    E^(4.*r^2))/r)*Sin[theta]^2 + 3*(-0.9375/(E^(4.*r^2)*
                   r^5) - (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^4 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r)/r^3 + 
                 (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(2 + 1.*^-6*r*(1.875/(E^(4.*r^2)*r^5) + 
                   (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                   (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^3 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) - 
                 0.000012*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) + 3.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                   (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                   (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4) + 
                 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                         8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^
                   2) + (1.875/(E^(4.*r^2)*r^5) + (15*(0. + 
                    (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 - 
                 (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                 (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^5)*(-2 + 6.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                   (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                       E^(4.*r^2)))/r^4) - 1.5*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
                 7.5*^-7*r*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + 
                      (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                   (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                       E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                   (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                       E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                   (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                     (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                      E^(4.*r^2))/r)*Sin[theta]^2) + 1.*^-6*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                ((-9*(-6.5625/(E^(4.*r^2)*r^5) - (48*(0. + (0.125*(0. - 
                          8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                    (13*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                        E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 - 
                    (3*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                        E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^2 + (105*(0.0625/E^(4.*r^2) + 
                       (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5 + 
                    (16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) - 
                      (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r + (8.*(0. - 8.*r)*r)/
                       E^(4.*r^2))/r)*Sin[theta]^2)/4 + 
                 r*(3*(5.625/(E^(4.*r^2)*r^6) + (39*(0. + (0.125*(0. - 8.*r))/
                         E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r))/r^5 - (9*(-1./E^(4.*r^2) + 
                        0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r))/r^4 + (0. + 0.125*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                       (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r)/r^3 - 
                     (90*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                         E^(4.*r^2)))/r^6) - (3*(39.375/(E^(4.*r^2)*r^6) + 
                      (297*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                       r^5 - (87*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                          E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^4 + 
                      (19*(0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                          E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r))/r^3 - (630*(0.0625/E^(4.*r^2) + 
                         (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^6 - 
                      (4*(16./E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + 0.1875*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 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.125*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) - (1.*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                          (0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r + 
                         (8.*(0. - 8.*r)*r)/E^(4.*r^2)))/r^2 + 
                      (0. - 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*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)) + (16.*(0. - 8.*r))/
                         E^(4.*r^2) - 1.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) + 0.125*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 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) - (128.*r)/E^(4.*r^2) + 
                        0.0625*r*(-5120./E^(4.*r^2) + 128.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - 8.*(128./E^(4.*r^2) - 
                          8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2)) - 16.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                          (1536.*(0. - 8.*r)^2)/E^(4.*r^2) - 24.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)^2 - (72.*(0. - 8.*r)^4)/E^(4.*r^2) + 
                          (0. - 8.*r)^6/E^(4.*r^2) - (2048.*(0. - 8.*r)*r)/
                          E^(4.*r^2)) - 1.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                          (64.*r^2)/E^(4.*r^2)))/r)*Sin[theta]^2)/4)))*
              (-4 + 1.8*^-11*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                  (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                   r^4)^2*(1 + 3*Cos[2*theta]) - 3.*^-6*(1.3125/(E^(4.*r^2)*
                   r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                    0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                  r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                 (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                   0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
               1.5*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                (4 - 12*Cos[2*theta] - 3.*^-6*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
                  (1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-12*
                (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
                 2))/2))/(2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
               (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
              (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^
                4)*Sin[theta]^2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                 (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1 + 
                3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^2 + 
         (3.*^-6*Sin[2*theta]*((3*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(1 + 
                ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                      (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(1.*^-6 - 
                   3.*^-6*Cos[2*theta]))/4) + 6.*^-6*r*(1.875/(E^(4.*r^2)*
                  r^5) + (15*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^4 - (5*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^3 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r^2 - (30*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*(-0.375/
                 (E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 + (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r)/r^2 + 
                (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*Cos[2*theta] + 6.*^-6*(-0.375/(E^(4.*r^2)*r^4) - 
                 (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                 (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[2*theta] - 
              3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(
                3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5) + 
                6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Cos[2*theta]))*
             (-2 + 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                 (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(1.3125/(E^(4.*r^2)*
                  r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[theta]^2 - 
              3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              4.5*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 
                       8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
                2) + 1.*^-6*((1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r - (21*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)/4 + 
              9.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2 - 
              3.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Cos[2*theta] + 
              3*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                   (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*(-1 + 
                2.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*(-1 + 3*Cos[2*theta])))*
             (-3*r*(-0.9375/(E^(4.*r^2)*r^5) - (6*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^4 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^3 + (15*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^5)*(1 + 3*Cos[2*theta])*(1 + 
                7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                  (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                      E^(4.*r^2)))/r^4)*Sin[theta]^2) + 9.*^-6*r*(
                1.875/(E^(4.*r^2)*r^5) + (15*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^4 - (5*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^3 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r)/r^2 - 
                (30*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^5)*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)*Sin[2*theta]^2 + 
              9.*^-6*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                    (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)^2*Sin[2*theta]^
                2 + 3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)*(3*r*(-0.9375/(E^(4.*r^2)*r^5) - 
                  (6*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^4 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^3 + (15*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^5)*
                 (1 + 3*Cos[2*theta]) - 9*(-0.375/(E^(4.*r^2)*r^4) - 
                  (3*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 + 
                  (-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r)/r^2 + (6*(0.0625/E^(4.*r^2) + 
                     (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*Sin[2*theta]^
                  2))))/(r*(2 - 9.*^-12*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r)/r^3 - 
                (3*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                 r^4)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(1.3125/(E^(4.*r^2)*
                 r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r)/r - (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                   E^(4.*r^2)))/r^4)*Sin[theta]^2 + 
             3.*^-6*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r)/r^3 - (3*(0.0625/E^(4.*r^2) + 
                  (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/r^4)*
              (-1 + 3*Cos[2*theta] + 7.5*^-7*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r)/r - 
                 (21*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/E^(4.*r^2)))/
                  r^4)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
             4.5*^-12*(-0.375/(E^(4.*r^2)*r^4) - (3*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 + (-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r)/r^2 + (6*(0.0625/E^(4.*r^2) + (0.0625*(0. - 8.*r)*r)/
                    E^(4.*r^2)))/r^4)^2*Sin[2*theta]^2)^2)))/(2*Sqrt[2]*r))/
    (Sqrt[2]*r))/2
