(((-I)*Csc[theta]*(((-1/2*I)*r*Sin[theta]*(1 - 7.500000000000001*^-9*
          (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^
                (4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
               r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^
                (4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
           (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
             0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
             0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^
                 4/E^(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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
           (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
               (0. - 8.*r)^2/E^(4.*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.0000000000000001*^-16*
           ((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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.*^-8*(-5.*^-9*(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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*(
                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.500000000000001*^-9*
          (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^
                (4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
               r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^
                (4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
           (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
             0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
             0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^
                 4/E^(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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
           (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
               (0. - 8.*r)^2/E^(4.*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.*^-9*(7.500000000000001*^-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)*
             ((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.0000000000000004*^-8*(-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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*
                  r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.*^-9*(-9.000000000000001*^-8*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.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(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.500000000000001*^-9*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.0000000000000004*^-8*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.000000000000001*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*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.500000000000001*^-9*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.*^-9*(-9.000000000000001*^-8*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.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(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.500000000000001*^-9*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.0000000000000004*^-8*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.000000000000001*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*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.*^-8*((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.0000000000000004*^-8*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(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.500000000000001*^-9*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.500000000000001*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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*^-16*
             (-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.5000000000000002*^-8*Cos[theta]*(-3.0000000000000004*^-8*
             ((-3*(0. + (0.125*(0. - 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.0000000000000004*^-8*(
                0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.000000000000001*^-8*Cos[theta] + 1.*^-8*Cot[theta]*Csc[
                theta])))/(r*(7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*
                r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.500000000000001*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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*^-16*
             (-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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
           (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
               (0. - 8.*r)^2/E^(4.*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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
           (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
           (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
              0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                 E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
              E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
              (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                 (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
               (0. - 8.*r)^4/E^(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.0000000000000001*^-16*
           ((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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.0000000000000004*^-8*((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.0000000000000004*^-8*
                   (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.000000000000001*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.7500000000000005*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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*^-16*
             (-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*^-16*Cos[theta]^2*(-3.0000000000000004*^-8*
             ((-3*(0. + (0.125*(0. - 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.0000000000000004*^-8*(
                0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*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.0000000000000004*^-8*(
                0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.*^-8*(-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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.500000000000001*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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*^-16*
             (-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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.500000000000001*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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*^-16*
             (-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.*^-8*(-2.5*^-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 + 3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.0000000000000004*^-8*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*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.*^-8*((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.0000000000000004*^-8*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*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.000000000000001*^-8*(0.1875/(E^(4.*r^2)*
                    r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.500000000000001*^-9*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(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.*^-8*((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.*^-8*((-3*(0. + (0.125*(0. - 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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.0000000000000004*^-8*
                  ((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.0000000000000004*^-8*(-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.500000000000001*^-9*
                  ((-3*(0. + (0.125*(0. - 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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                      (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(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.000000000000001*^-8*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*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.7500000000000005*^-9*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(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*^-16*
                (-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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.500000000000001*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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*^-16*
             (-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.0000000000000004*^-8*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.0000000000000004*^-16*r*Cos[theta]*Sin[theta]*
           (-9.*^-8*((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.0000000000000004*^-8*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(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.0000000000000004*^-8*(
                0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.*^-8*(-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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.500000000000001*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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*^-16*
             (-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.0000000000000004*^-16*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.0000000000000004*^-8*(
                0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.*^-8*(-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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.0000000000000004*^-8*((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.0000000000000004*^-8*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.500000000000001*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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*^-16*
             (-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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.000000000000001*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.7500000000000005*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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*^-16*
             (-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.0000000000000004*^-8*r*Cos[theta]*Sin[theta]*
           (1.*^-8*(((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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(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.*^-8*(
                -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.0000000000000004*^-8*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*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.000000000000001*^-8*(0.1875/(E^(4.*r^2)*
                    r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.500000000000001*^-9*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(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.*^-8*((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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.500000000000001*^-9*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(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.*^-8*(-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*^-15*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.0000000000000004*^-8*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(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.5000000000000002*^-8*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*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.0000000000000004*^-8*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(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.*^-16*
                (-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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.500000000000001*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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*^-16*
             (-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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
           (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
               (0. - 8.*r)^2/E^(4.*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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
           (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
           (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
              0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                 E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
              E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
              (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                 (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
               (0. - 8.*r)^4/E^(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.*^-9*(-9.*^-8*((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.0000000000000004*^-8*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(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.0000000000000004*^-8*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.000000000000001*^-8*(
                0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*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.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.500000000000001*^-9*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.0000000000000004*^-8*(
                0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*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.35*^-15*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.*^-16*(-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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.500000000000001*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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*^-16*
             (-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.*^-9*((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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.0000000000000004*^-8*((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.0000000000000004*^-8*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*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.0000000000000004*^-8*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.000000000000001*^-8*(
                0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*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.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.500000000000001*^-9*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.0000000000000004*^-8*(
                0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*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.35*^-15*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.*^-16*(-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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.000000000000001*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.7500000000000005*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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*^-16*
             (-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*^-16*Cos[theta]^2*(-3.0000000000000004*^-8*
             ((-3*(0. + (0.125*(0. - 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.0000000000000004*^-8*(
                0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*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*
           (-1.8*^-7*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*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.*^-8*(-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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.0000000000000004*^-8*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.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.500000000000001*^-9*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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                 (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.500000000000001*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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*^-16*
             (-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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.500000000000001*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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*^-16*
             (-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*^-16*Cos[theta]^2*(-3.0000000000000004*^-8*
             ((-3*(0. + (0.125*(0. - 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.0000000000000004*^-8*(
                0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*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.000000000000001*^-8*
             (-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.0000000000000004*^-8*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*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.0000000000000004*^-8*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.000000000000001*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.500000000000001*^-9*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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                 (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.500000000000001*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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*^-16*
             (-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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.500000000000001*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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*^-16*
             (-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.*^-9*r*(9.*^-16*(-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.0000000000000004*^-8*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*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.0000000000000004*^-8*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.000000000000001*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(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.500000000000001*^-9*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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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*^-7*
              ((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 + 2.7*^-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)*(-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.0000000000000004*^-8*((-3*(0. + (0.125*(0. - 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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(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.*^-8*
              (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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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*^-16*
              ((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.0000000000000004*^-8*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.000000000000001*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(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.500000000000001*^-9*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.0000000000000004*^-8*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*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.35*^-15*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.*^-16*(-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.0000000000000004*^-8*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*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.5000000000000002*^-8*
           (3.0000000000000004*^-8*((1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.*^-8*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*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.0000000000000004*^-8*(-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*^-9*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(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.0000000000000004*^-8*((-3*(0. + (0.125*(0. - 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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.0000000000000004*^-8*(
                (-3*(0. + (0.125*(0. - 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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.*^-16*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*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.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*
                  r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.500000000000001*^-9*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(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*^-16*(-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.0000000000000004*^-8*((-3*(0. + (0.125*(0. - 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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*(
                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.500000000000001*^-9*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(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*^-16*(-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.000000000000001*^-8*(-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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*(
                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.500000000000001*^-9*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(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*^-16*(-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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*
              (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
              (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*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.500000000000001*^-9*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(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*^-16*(-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.0000000000000004*^-8*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.5000000000000002*^-8*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.0000000000000004*^-8*(
                0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.*^-8*(-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.0000000000000004*^-8*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.000000000000001*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.500000000000001*^-9*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.0000000000000004*^-8*(
                0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*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.35*^-15*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.*^-16*(-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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.500000000000001*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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*^-16*
             (-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.5000000000000002*^-8*Cos[theta]*(-3.0000000000000004*^-8*
             ((-3*(0. + (0.125*(0. - 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.0000000000000004*^-8*(
                0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*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*^-15*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.0000000000000004*^-8*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.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.500000000000001*^-9*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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.0000000000000004*^-8*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.000000000000001*^-8*(-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.0000000000000004*^-8*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.500000000000001*^-9*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.000000000000001*^-8*
             (-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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*
                  r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.000000000000001*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.7500000000000005*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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*^-16*
             (-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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.500000000000001*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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*^-16*
             (-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.0000000000000004*^-8*Cos[theta]*Sin[theta]*
           (1.*^-8*(-1.8*^-7*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.*^-8*(-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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(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.0000000000000004*^-8*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.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(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.500000000000001*^-9*
                 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.0000000000000004*^-8*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*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.000000000000001*^-8*(0.1875/(E^(4.*r^2)*
                    r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.500000000000001*^-9*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(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.*^-8*((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.5000000000000006*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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 - 1.2000000000000002*^-7*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.*^-8*(-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.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(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.0000000000000004*^-8*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.000000000000001*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(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.500000000000001*^-9*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.*^-8*
                (-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*^-15*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.0000000000000004*^-8*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(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.5000000000000002*^-8*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*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.0000000000000004*^-8*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(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.*^-16*
                (-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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.500000000000001*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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*^-16*
             (-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.500000000000001*^-9*Sin[2*theta]*
           (-8.*^-8*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.*^-8*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*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.0000000000000004*^-8*(-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*^-9*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(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.*^-8*((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.0000000000000004*^-8*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.*^-8 - 
                   3.0000000000000004*^-8*Cos[2*theta]))/4) + 
              3.0000000000000004*^-8*((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*^-15*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.000000000000001*^-8*(
                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.0000000000000004*^-8*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(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*^-15*(-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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                 (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.500000000000001*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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*^-16*
             (-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.500000000000001*^-9*
          (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^
                (4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
               r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^
                (4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
           (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
             0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
             0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^
                 4/E^(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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
           (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
               (0. - 8.*r)^2/E^(4.*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.*^-9*(-9.000000000000001*^-8*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.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(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.500000000000001*^-9*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.0000000000000004*^-8*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.000000000000001*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*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.500000000000001*^-9*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.*^-8*((-2 + 3.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*(
                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.0000000000000004*^-8*(
                -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.5000000000000002*^-8*(-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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.*^-9*(-9.000000000000001*^-8*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.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(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.500000000000001*^-9*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.0000000000000004*^-8*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.000000000000001*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*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.*^-8*((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.0000000000000004*^-8*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(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.500000000000001*^-9*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.500000000000001*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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*^-16*
             (-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.5000000000000002*^-8*Cos[theta]*(-3.0000000000000004*^-8*
             ((-3*(0. + (0.125*(0. - 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.0000000000000004*^-8*(
                0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.000000000000001*^-8*Cos[theta] + 1.*^-8*Cot[theta]*Csc[
                theta])))/(r*(7.500000000000001*^-9*(1.3125/(E^(4.*r^2)*
                r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.500000000000001*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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*^-16*
             (-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.500000000000001*^-9*
          (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^
                (4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
               r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^
                (4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
           (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
             0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
             0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^
                 4/E^(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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
           (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
               (0. - 8.*r)^2/E^(4.*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.000000000000001*^-8*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.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) + 
               (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
               (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                  E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(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.500000000000001*^-9*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.0000000000000004*^-8*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.000000000000001*^-8*
              (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.500000000000001*^-17*((-3*(0. + (0.125*(0. - 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.0000000000000004*^-8*
            (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
               0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*
            (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
             (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                  E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
               0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 (0. - 8.*r)^4/E^(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*^-16*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
             (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
             (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                  E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                 (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(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.500000000000001*^-9*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.000000000000001*^-8*(0.1875/(E^(4.*r^2)*
                 r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.0000000000000004*^-8*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*^-16*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.*^-16*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.*^-16*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*^-15*
              (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*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.500000000000001*^-9*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.0000000000000004*^-8*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.0000000000000004*^-8*
              (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*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.0000000000000004*^-8*
                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.5000000000000002*^-8*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.500000000000001*^-9*
              (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
              (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*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.500000000000001*^-9*
           (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) - 1.8*^-7*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                 (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*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.0000000000000004*^-8*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.*^-8*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.*^-8*(-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.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(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.000000000000001*^-8*Cos[theta] + 1.*^-8*Cot[theta]*Csc[
                theta]))*Sin[2*theta])/(r^2*(7.500000000000001*^-9*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.500000000000001*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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*^-16*
             (-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*^-9*(-9.000000000000001*^-8*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.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(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.500000000000001*^-9*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.0000000000000004*^-8*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.000000000000001*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*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.500000000000001*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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.*^-8*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.*^-8*(-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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
              (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
              (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
                 E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.500000000000001*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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*^-16*
             (-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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
           (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
               (0. - 8.*r)^2/E^(4.*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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
           (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
           (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
              0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                 E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
              E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
              (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                 (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
               (0. - 8.*r)^4/E^(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.*^-9*(-9.*^-8*((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.0000000000000004*^-8*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(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.0000000000000004*^-8*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.000000000000001*^-8*(
                0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*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.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.500000000000001*^-9*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.0000000000000004*^-8*(
                0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*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.35*^-15*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.*^-16*(-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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.500000000000001*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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*^-16*
             (-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.*^-9*((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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.0000000000000004*^-8*((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.0000000000000004*^-8*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*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.0000000000000004*^-8*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.000000000000001*^-8*(
                0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*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.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.500000000000001*^-9*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.0000000000000004*^-8*(
                0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*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.35*^-15*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.*^-16*(-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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.000000000000001*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.7500000000000005*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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*^-16*
             (-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*^-16*Cos[theta]^2*(-3.0000000000000004*^-8*
             ((-3*(0. + (0.125*(0. - 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.0000000000000004*^-8*(
                0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*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.000000000000001*^-8*
             (-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.0000000000000004*^-8*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*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.0000000000000004*^-8*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.000000000000001*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.500000000000001*^-9*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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                 (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.500000000000001*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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*^-16*
             (-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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.500000000000001*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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*^-16*
             (-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*^-16*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) - 1.8*^-7*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.0000000000000004*^-8*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.*^-8*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.*^-8*(-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.0000000000000004*^-8*(
                0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.*^-8*(-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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                 (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.500000000000001*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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*^-16*
             (-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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.500000000000001*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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*^-16*
             (-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*^-9*(1.*^-8*((-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.0000000000000004*^-8*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*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.000000000000001*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.500000000000001*^-9*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(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.*^-8*(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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.0000000000000004*^-8*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*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.*^-8*((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.000000000000001*^-8*((-3*(0. + (0.125*(0. - 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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.0000000000000004*^-8*(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.0000000000000004*^-8*
                 (-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.500000000000001*^-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)*
                 ((-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.0000000000000004*^-8*
                    (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                        E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*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.*^-16*(0.1875/(E^(4.*r^2)*
                   r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*(
                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.000000000000001*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.7500000000000005*^-9*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(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*^-16*(-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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                 (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.500000000000001*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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*^-16*
             (-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.5000000000000002*^-8*(3.0000000000000004*^-8*
             ((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.*^-8*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*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.0000000000000004*^-8*(-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*^-9*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(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.0000000000000004*^-8*((-3*(0. + (0.125*(0. - 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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.0000000000000004*^-8*(
                (-3*(0. + (0.125*(0. - 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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.*^-16*
               (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*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.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*
                  r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.500000000000001*^-9*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(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*^-16*(-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.0000000000000004*^-8*((-3*(0. + (0.125*(0. - 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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*(
                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.500000000000001*^-9*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(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*^-16*(-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.000000000000001*^-8*(-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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*(
                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.500000000000001*^-9*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(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*^-16*(-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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*
              (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
              (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*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.500000000000001*^-9*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(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*^-16*(-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.0000000000000004*^-8*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.0000000000000004*^-16*Cos[theta]*Sin[theta]*
           (-9.*^-8*((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.0000000000000004*^-8*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(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.8*^-7*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.*^-8*(-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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.0000000000000004*^-8*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.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.500000000000001*^-9*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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.500000000000001*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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*^-16*
             (-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.0000000000000004*^-16*Cos[theta]*Sin[theta]*
           (-1.8*^-7*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*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.*^-8*(-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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.0000000000000004*^-8*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.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.500000000000001*^-9*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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.0000000000000004*^-8*((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.0000000000000004*^-8*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.500000000000001*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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*^-16*
             (-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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.000000000000001*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.7500000000000005*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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*^-16*
             (-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.5000000000000002*^-8*Cos[theta]*(-3.0000000000000004*^-8*
             ((-3*(0. + (0.125*(0. - 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.0000000000000004*^-8*(
                0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*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*^-15*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.0000000000000004*^-8*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.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.500000000000001*^-9*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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.0000000000000004*^-8*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.000000000000001*^-8*(-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.0000000000000004*^-8*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.500000000000001*^-9*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.000000000000001*^-8*
             (-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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*
                  r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.000000000000001*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.7500000000000005*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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*^-16*
             (-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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.500000000000001*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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*^-16*
             (-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.5000000000000002*^-16*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.0000000000000004*^-8*(
                0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.*^-8*(-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.500000000000001*^-9*(
                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.*^-8*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.*^-8*(-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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.500000000000001*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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*^-16*
             (-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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.500000000000001*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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*^-16*
             (-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.0000000000000004*^-8*Cos[theta]*Sin[theta]*
           (1.*^-8*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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(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.*^-8*(
                -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.0000000000000004*^-8*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*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.000000000000001*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.500000000000001*^-9*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(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.*^-8*(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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(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.*^-8*(
                -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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*(
                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.500000000000001*^-9*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(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*^-16*(-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.0000000000000004*^-8*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(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.*^-8*(
                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.*^-8*(
                (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.*^-8*(
                -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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*(
                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.500000000000001*^-9*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(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*^-16*(-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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                 (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.500000000000001*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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*^-16*
             (-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.500000000000001*^-9*Sin[2*theta]*
           (-8.*^-8*((1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.*^-8*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*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.0000000000000004*^-8*(-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*^-9*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(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.*^-8*((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.0000000000000004*^-8*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.*^-8 - 
                   3.0000000000000004*^-8*Cos[2*theta]))/4) + 
              3.0000000000000004*^-8*((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*^-15*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.000000000000001*^-8*(
                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.0000000000000004*^-8*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(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*^-15*(-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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                 (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.500000000000001*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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*^-16*
             (-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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
           (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
               (0. - 8.*r)^2/E^(4.*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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
           (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
           (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
              0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                 E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/
              E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
              (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                 (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
               (0. - 8.*r)^4/E^(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.0000000000000004*^-8*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.000000000000001*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(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.500000000000001*^-9*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.0000000000000004*^-8*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*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.35*^-15*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.*^-16*(-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.0000000000000004*^-8*
                 (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.500000000000001*^-17*((-3*(0. + (0.125*(0. - 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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.0000000000000004*^-8*((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.0000000000000004*^-8*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.5000000000000002*^-8*
            (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
             (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                  E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
               0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 (0. - 8.*r)^4/E^(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.000000000000001*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
             (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                 (0. - 8.*r)^2/E^(4.*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.7500000000000005*^-9*(1.3125/
                (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(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*^-16*(-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*^-16*((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.0000000000000004*^-8*
             ((-3*(0. + (0.125*(0. - 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.0000000000000004*^-8*(
                0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.5000000000000002*^-8*
            (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
             (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                  E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
               0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 (0. - 8.*r)^4/E^(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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
             (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                 (0. - 8.*r)^2/E^(4.*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.500000000000001*^-9*(1.3125/
                (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(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*^-16*(-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*^-16*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) - 1.8*^-7*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                 (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*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.0000000000000004*^-8*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.*^-8*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.*^-8*(-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]*
           (-1.8*^-7*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*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.*^-8*(-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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.0000000000000004*^-8*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.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.500000000000001*^-9*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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                 (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.500000000000001*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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*^-16*
             (-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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.500000000000001*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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*^-16*
             (-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*^-16*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) - 1.8*^-7*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.0000000000000004*^-8*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.*^-8*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.*^-8*(-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.000000000000001*^-8*(-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.0000000000000004*^-8*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*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.0000000000000004*^-8*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.000000000000001*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.500000000000001*^-9*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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                 (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.500000000000001*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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*^-16*
             (-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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.500000000000001*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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*^-16*
             (-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*^-9*(r*(2 - 3.0000000000000004*^-8*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.000000000000001*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.500000000000001*^-9*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.0000000000000004*^-8*(
                0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*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.35*^-15*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.500000000000001*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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.*^-8*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.*^-8*(-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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
              (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*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.*^-16*(-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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.500000000000001*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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*^-16*
             (-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.*^-16*(-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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*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.0000000000000004*^-8*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.0000000000000004*^-8*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.000000000000001*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(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.500000000000001*^-9*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.0000000000000004*^-8*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.000000000000001*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(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.500000000000001*^-9*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.0000000000000004*^-8*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*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.*^-8*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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.35*^-15*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.35*^-15*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.35*^-15*
              (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*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.*^-16*(-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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*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.0000000000000004*^-8*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.000000000000001*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(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.500000000000001*^-9*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.0000000000000004*^-8*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*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.35*^-15*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.0000000000000004*^-8*(-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.0000000000000004*^-8*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(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.*^-8*(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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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*^-16*(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.0000000000000004*^-8*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.000000000000001*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(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.500000000000001*^-9*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.0000000000000004*^-8*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*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.35*^-15*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.*^-16*(-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.0000000000000004*^-8*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*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.500000000000001*^-9*
           (-6.000000000000001*^-8*((1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.*^-8*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*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.0000000000000004*^-8*(-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*^-9*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(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) + 1.8*^-7*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.0000000000000004*^-8*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.*^-8*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.*^-8*(-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) - 1.8*^-7*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.0000000000000004*^-8*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.*^-8*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.*^-8*(-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.*^-16*(0.1875/(E^(4.*r^2)*
                   r^4) + (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*(
                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.500000000000001*^-9*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(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*^-16*(-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.000000000000001*^-8*(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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*(
                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.500000000000001*^-9*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(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*^-16*(-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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*
              (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
              (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*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.500000000000001*^-9*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(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*^-16*(-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.0000000000000004*^-8*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.5000000000000002*^-16*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.*^-8*((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.0000000000000004*^-8*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
                 (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                 (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.5000000000000002*^-8*
            (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
             (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                  E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
               0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 (0. - 8.*r)^4/E^(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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
             (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                 (0. - 8.*r)^2/E^(4.*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.500000000000001*^-9*(1.3125/
                (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(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*^-16*(-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*^-16*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.0000000000000004*^-8*(
                0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.*^-8*(-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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.5000000000000002*^-8*
            (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
             (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                  E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 
               0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 (0. - 8.*r)^4/E^(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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
             (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                 (0. - 8.*r)^2/E^(4.*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.500000000000001*^-9*(1.3125/
                (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                  0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                   E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(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*^-16*(-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.5000000000000002*^-8*Cos[theta]*
           Sin[theta]*(-1.8*^-7*(0.1875/(E^(4.*r^2)*r^4) + (0. + 
                 (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*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.*^-8*(-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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.0000000000000004*^-8*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.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.500000000000001*^-9*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.0000000000000004*^-8*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.000000000000001*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.500000000000001*^-9*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.0000000000000004*^-8*(
                0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*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.35*^-15*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.*^-16*(-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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.500000000000001*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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*^-16*
             (-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.500000000000001*^-9*(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) - 1.8*^-7*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.0000000000000004*^-8*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.*^-8*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.*^-8*(-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*^-15*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.0000000000000004*^-8*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.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.500000000000001*^-9*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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.0000000000000004*^-8*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.000000000000001*^-8*(-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.0000000000000004*^-8*(1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.500000000000001*^-9*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.000000000000001*^-8*
             (-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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*
                  r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.000000000000001*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.7500000000000005*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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*^-16*
             (-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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.500000000000001*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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*^-16*
             (-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.0000000000000004*^-8*Cos[theta]*Sin[theta]*
           (1.*^-8*(-1.8*^-7*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.*^-8*(-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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(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.0000000000000004*^-8*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.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(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.500000000000001*^-9*
                 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.0000000000000004*^-8*
                  (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*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.000000000000001*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.500000000000001*^-9*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(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.*^-8*(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.5000000000000006*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.*^-8*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.2000000000000002*^-7*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.0000000000000004*^-8*
                  (-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.5000000000000002*^-8*(1.3125/(E^(4.*r^2)*r^4) + 
                   (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                   (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(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.000000000000001*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                   (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(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.500000000000001*^-9*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.*^-8*
                (-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*^-15*(0.1875/(E^(4.*r^2)*r^4) + 
                  (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.0000000000000004*^-8*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(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.5000000000000002*^-8*
                (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*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.0000000000000004*^-8*
                  (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                       E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 
                      0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r))/r^2 + (0. + 0.125*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                     0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(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.*^-16*
                (-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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
               (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*
             (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                 (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                  ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                  r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                   E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
             (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                 E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*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.500000000000001*^-9*(1.3125/
                 (E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 
                   0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/
                 r^3 - (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r))/r^2 + 
                (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                  0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(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*^-16*
             (-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.0000000000000004*^-8*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.*^-8 - 
                   3.0000000000000004*^-8*Cos[2*theta]))/4) + 
              6.000000000000001*^-8*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.000000000000001*^-8*
               (-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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                 (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*(
                1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.500000000000001*^-9*
                 (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                      E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(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*^-16*(-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.*^-8*((1.3125/(E^(4.*r^2)*r^4) + 
                (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                  (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(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.*^-8*(0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                    E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*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.0000000000000004*^-8*(-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*^-9*(1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 
                        8.*r))/E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(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.500000000000001*^-9*(1.3125/(E^(4.*r^2)*r^4) + 
                  (9*(0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r))/r^3 - 
                  (2*(-1./E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     0.0625*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                    (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(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.*^-8*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.*^-8*(-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.0000000000000004*^-8*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.*^-16*(0.1875/(E^(4.*r^2)*r^4) + 
                (0. + (0.125*(0. - 8.*r))/E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*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.5000000000000002*^-8*
              (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                   E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                  (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                   r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2)) - (2.*(0. - 8.*r))/E^(4.*r^2) + 
                 0.125*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. - 8.*r) + 0.0625*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(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.0000000000000004*^-8*
              (0.1875/(E^(4.*r^2)*r^4) + (0. + (0.125*(0. - 8.*r))/
                  E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*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.500000000000001*^-9*
                (1.3125/(E^(4.*r^2)*r^4) + (9*(0. + (0.125*(0. - 8.*r))/
                     E^(4.*r^2) + 0.0625*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r))/r^3 - (2*(-1./E^(4.*r^2) + 0.0625*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                    (0.125*(0. - 8.*r)^2)/E^(4.*r^2) + 0.0625*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r))/r^2 + (0. + 0.125*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) - 
                   (2.*(0. - 8.*r))/E^(4.*r^2) + 0.125*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) + 0.0625*
                    (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(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*^-16*(-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
