(((-I)*Csc[theta]*(((-1/2*I)*r*Sin[theta]*
        (1 - 7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
              (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
           (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
              0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
              ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
           (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
              (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
              0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
               r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                (0. + 2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
             (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
             12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
             3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
             4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
              r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
              (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                 (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
               (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
               (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
             8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
             ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
              E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                 (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
         3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
              (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
           ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
             0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
             ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
          (-1 + 3*Sin[theta]^2))*
        ((-1.*^-12*((3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                    E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) + 
                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                      2.*r^3))/E^(4.*r^2)))/r^4 + (9*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                 r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                  24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                    (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                  18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                  0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
                   ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                     96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. - 
                       8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                  8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
                  6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                      (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
                  8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^
                2)/4 + 3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                   E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^3)*(1 - 3*Sin[theta]^2))^2)/
          (-2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)^
           2 - (1.*^-6*(-5.*^-7*(3*((3*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                (-1 + 3*Cos[2*theta]) + (3*((21*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                  (21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                      E^(4.*r^2)))/r^4 + (9*((12.*r)/E^(4.*r^2) + 
                     (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
                      E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                     0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                  (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                     (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                     4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                        E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
                    (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                         2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
                     E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
                      2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                    12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                     r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                    6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                       E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                    4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
                       E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                      (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
                      (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
                     E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                      8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                    (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                     E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                        r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                      (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)/2)^2 + 
            (-2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(-1 + 
                3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               Sin[theta]^2)*((3*((21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                     E^(4.*r^2)))/r^5 - (21*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                 (9*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                  r^3 - (2*((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/
                     E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                         2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
                     E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
                      2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                    12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                     r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                    6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                       E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                    4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
                       E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                      (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
                      (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
                     E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                      8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                    (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                     E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                        r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                      (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 2.*r^3))/E^(4.*r^2))))/r^2 + 
                 (0. - 672./E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                      E^(4.*r^2)) + ((12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/
                    E^(4.*r^2) + ((0. + 12.*(0. - 8.*r) - 288.*r)*(0. - 
                      8.*r))/E^(4.*r^2) + (2*(12.*(0. - 8.*r) - 96.*r)*
                     (0. - 8.*r))/E^(4.*r^2) + (24.*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 12*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
                     2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r))*r + 48.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 48.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (6912.*r^2)/
                    E^(4.*r^2) + 6.*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                   3*(-16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*(0. - 8.*r))*r^2 + 12.*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^2 + 4.*(0. - 8.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                     (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                     (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                      E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*r^4*(-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)) - 
                   16.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*r)/E^(4.*r^2)) + 
                   3*r^2*(256./E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + 2.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                     (256.*(0. - 8.*r)*r)/E^(4.*r^2)) + 24.*r*
                    ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                     (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 24.*r^2*
                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(12.*(0. - 8.*r)*r - 96.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 
                     12.*(0. - 8.*r)*r - 96.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (64.*r^2)/E^(4.*r^2)) - 192.*r^2*(-8./E^(4.*r^2) + 
                     (64.*r^2)/E^(4.*r^2)) + 6.*r^2*(192./E^(4.*r^2) - 
                     (8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/
                      E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^2*
                       r^2)/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 - 
                     16.*r^3) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3) + 
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*(6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^3) - 8.*(12./E^(4.*r^2) + 
                     (36.*(0. - 8.*r)*r)/E^(4.*r^2) - (96.*r^2)/E^(4.*r^2) + 
                     6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^3 - (96.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
                   4.*r^3*(0. + (384.*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + 
                     (384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*
                       r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                       (64.*r^2)/E^(4.*r^2))) + 24.*r*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + 
                   ((0. - 8.*r)*((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 
                        96.*r^2) - 8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3)))/
                    E^(4.*r^2) - 8.*((0. + 12.*(0. - 8.*r)*r - 96.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*
                      r^2 - 8.*(0. + 2.*r^3)) + (-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*
                      r^2 - 8.*(0. + 2.*r^3)) - 8.*(6.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + ((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 
                       2.*r^3)) + 6.*r^2*(128./E^(4.*r^2) - (1024.*r^2)/
                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*
                        (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))) + 
                   ((0. - 8.*r)*((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2) - 
                      8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3))))/
                    E^(4.*r^2) - 8.*((12.*(0. - 8.*r)*r - 96.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2)) - 8.*(12./E^(4.*r^2) + 
                     (12.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                     6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 2.*r^3) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                        E^(4.*r^2))))/r)*Sin[theta]^2)/4 + 
              3*((3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^5 - 
                (3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                 r^3)*(1 - 3*Sin[theta]^2))))/
          (-2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)^
           2))/Sqrt[2] + ((I/2)*r*Sin[theta]*
        (1 - 7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
              (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
           (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
              0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
              ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
           (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
              (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
              0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
               r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                (0. + 2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
             (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
             12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
             3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
             4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
              r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
              (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                 (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
               (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
               (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
             8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
             ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
              E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                 (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
         3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
              (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
           ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
             0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
             ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
          (-1 + 3*Sin[theta]^2))*
        ((5.*^-7*(7.5*^-7*(-52.5/(E^(4.*r^2)*r^2) + 
              (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
               r^5 - (48*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^3 - (3*(0. + 12./E^(4.*r^2) + 
                 (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                  (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                     r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                    8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/r^2 + 
              ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/
                   E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 r^2 + (1536.*r^3)/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^3 + 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(0. - 
                  8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                  (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*((-16.*(0. - 8.*r))/
                   E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
                   E^(4.*r^2)) + 4.*r^3*(192./E^(4.*r^2) - 
                  (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                   E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                12.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) - 
                8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
                6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                    (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                  (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
                8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
             ((3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^4 + (9*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r))/4 + 
              3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2)) + 
            3.*^-6*(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
              (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-3 + Csc[theta]^2)*((3*((21*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                 (21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                 (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r))/4 + 
              3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2)) - 
            (7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                 r) - Csc[theta]^2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2))*
             ((3*((-105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^6 + (105*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^5 - (48*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                 (13*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                  r^3 - (3*((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/
                     E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                         2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
                     E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
                      2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                    12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                     r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                    6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                       E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                    4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
                       E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                      (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
                      (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
                     E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                      8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                    (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                     E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                        r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                      (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 2.*r^3))/E^(4.*r^2))))/r^2 + 
                 (0. - 672./E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                      E^(4.*r^2)) + ((12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/
                    E^(4.*r^2) + ((0. + 12.*(0. - 8.*r) - 288.*r)*(0. - 
                      8.*r))/E^(4.*r^2) + (2*(12.*(0. - 8.*r) - 96.*r)*
                     (0. - 8.*r))/E^(4.*r^2) + (24.*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 12*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
                     2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r))*r + 48.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 48.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (6912.*r^2)/
                    E^(4.*r^2) + 6.*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                   3*(-16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*(0. - 8.*r))*r^2 + 12.*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^2 + 4.*(0. - 8.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                     (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                     (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                      E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*r^4*(-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)) - 
                   16.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*r)/E^(4.*r^2)) + 
                   3*r^2*(256./E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + 2.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                     (256.*(0. - 8.*r)*r)/E^(4.*r^2)) + 24.*r*
                    ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                     (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 24.*r^2*
                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(12.*(0. - 8.*r)*r - 96.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 
                     12.*(0. - 8.*r)*r - 96.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (64.*r^2)/E^(4.*r^2)) - 192.*r^2*(-8./E^(4.*r^2) + 
                     (64.*r^2)/E^(4.*r^2)) + 6.*r^2*(192./E^(4.*r^2) - 
                     (8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/
                      E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^2*
                       r^2)/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 - 
                     16.*r^3) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3) + 
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*(6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^3) - 8.*(12./E^(4.*r^2) + 
                     (36.*(0. - 8.*r)*r)/E^(4.*r^2) - (96.*r^2)/E^(4.*r^2) + 
                     6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^3 - (96.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
                   4.*r^3*(0. + (384.*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + 
                     (384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*
                       r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                       (64.*r^2)/E^(4.*r^2))) + 24.*r*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + 
                   ((0. - 8.*r)*((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 
                        96.*r^2) - 8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3)))/
                    E^(4.*r^2) - 8.*((0. + 12.*(0. - 8.*r)*r - 96.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*
                      r^2 - 8.*(0. + 2.*r^3)) + (-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*
                      r^2 - 8.*(0. + 2.*r^3)) - 8.*(6.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + ((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 
                       2.*r^3)) + 6.*r^2*(128./E^(4.*r^2) - (1024.*r^2)/
                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*
                        (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))) + 
                   ((0. - 8.*r)*((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2) - 
                      8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3))))/
                    E^(4.*r^2) - 8.*((12.*(0. - 8.*r)*r - 96.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2)) - 8.*(12./E^(4.*r^2) + 
                     (12.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                     6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 2.*r^3) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                        E^(4.*r^2))))/r))/4 + 3*((-15*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^6 + 
                (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^5 - 
                (6*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                 r^3)*(-3 + Csc[theta]^2))))/
          (7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
              (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
              (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                   E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                 E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 2.*r^3))/E^(4.*r^2)))/r) - Csc[theta]^2 + 
            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-3 + Csc[theta]^2))^2 - 
         (5.*^-7*(-9.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
              (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                 E^(4.*r^2))/r^3) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r) + 
            7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + (105*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
              (48*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
              (13*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
              (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                    E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                    16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                  E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 2.*r^3))/E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/
                 E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + 
                  (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*
                 r^2 + 18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                  (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*((-16.*(0. - 8.*r))/
                   E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
                   E^(4.*r^2)) + 4.*r^3*(192./E^(4.*r^2) - 
                  (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                   E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                12.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) - 
                8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
                6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                    (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                  (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
                8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r) - 
            2*Csc[theta]^2 + 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
              (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                 E^(4.*r^2))/r^3)*Csc[theta]^2 + 6.*^-6*(1.5/(E^(4.*r^2)*r) - 
              (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-3 + Csc[theta]^2))*((3*((21*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
               (21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
               (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
               (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                 (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/
                    E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                  r^2 + (1536.*r^3)/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^3 + 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(0. - 
                   8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                   (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*((-16.*(0. - 8.*r))/
                    E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
                    E^(4.*r^2)) + 4.*r^3*(192./E^(4.*r^2) - 
                   (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                    E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 
                 ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
                  E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                    E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                  E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
                 6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                     (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
                    8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
                 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
              Sin[theta]^2)/4 + 3*((3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (1 - 3*Sin[theta]^2)))/(r*(7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r) - 
            Csc[theta]^2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
              (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-3 + Csc[theta]^2))*(-2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
              (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
             Sin[theta]^2)) + (5.*^-7*(-9.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
              (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                 E^(4.*r^2))/r^3) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r) + 
            7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + (105*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
              (48*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
              (13*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
              (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                    E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                    16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                  E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 2.*r^3))/E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/
                 E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + 
                  (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*
                 r^2 + 18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                  (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*((-16.*(0. - 8.*r))/
                   E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
                   E^(4.*r^2)) + 4.*r^3*(192./E^(4.*r^2) - 
                  (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                   E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                12.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) - 
                8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
                6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                    (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                  (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
                8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r) - 
            2*Csc[theta]^2 + 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
              (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                 E^(4.*r^2))/r^3)*Csc[theta]^2 + 6.*^-6*(1.5/(E^(4.*r^2)*r) - 
              (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-3 + Csc[theta]^2))*(-9.*^-6*(-3./(E^(4.*r^2)*r) + 
              (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                 E^(4.*r^2))/r^2)*((-6*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 + 
              (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
              (3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
              (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                   E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                 E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 2.*r^3))/E^(4.*r^2)))/r^2)*Cos[theta]^2*
             Sin[theta]^2 - (3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                    r^4)/E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])*
              (-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 7.5*^-7*
                (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*Sin[theta]^2))/2))/
          (r*(7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
              (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
              (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                   E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                 E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 2.*r^3))/E^(4.*r^2)))/r) - Csc[theta]^2 + 
            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-3 + Csc[theta]^2))*(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
               (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) + 
         (1.5*^-6*Cos[theta]*(-3.*^-6*((3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
             (1 + 3*Cos[2*theta]) + ((-6*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 + 
              (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
              (3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
              (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                   E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                 E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
             (2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 + 
                3*Cos[2*theta])))*(1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Cos[theta] - 
            Cot[theta]*Csc[theta] + 3*(1.5/(E^(4.*r^2)*r) - 
              (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta])))/
          (r*(7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
              (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
              (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                   E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                 E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 2.*r^3))/E^(4.*r^2)))/r) - Csc[theta]^2 + 
            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
               (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2))))/Sqrt[2]))/
    (Sqrt[2]*r) + 
   (-1/2*(-3.*^-6*r*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
             (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
          (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
             0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
             ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
          ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
            (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^
                (4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
            0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
             r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
            ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*Cos[theta]*
         Sin[theta]*((1.5*^-6*Cos[theta]*Sin[theta]*
            (((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
                  (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) + 
                 (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                  (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                     r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                    8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
              (1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 7.5*^-7*
                (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*Sin[theta]^2) + 1.*^-6*(-3./(E^(4.*r^2)*r) + 
               (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                   r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)*(3*((3*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 
               (3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) + 
                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                  (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^3 - (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                      E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
                      r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                        E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
                    (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                         2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
                     E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
                      2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                    12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                     r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                    6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                       E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                    4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
                       E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                      (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
                      (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
                     E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                      8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                    (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                     E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                        r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                      (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)/4))*
            (r*(2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 3.*^-6*r*
                (-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                 (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*
                (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
                 (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)*
              (-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
              (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
              (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
               (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
               ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
              Sin[2*theta]^2))/(r*(9.*^-12*(-3./(E^(4.*r^2)*r) + 
                (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^2)^2*Cos[theta]^2*Sin[theta]^2 - 
             (1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 7.5*^-7*
                (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*Sin[theta]^2)*(1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
            (2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
              (1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
               (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                  (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                 (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                  (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                     r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                    8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
             3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
              (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                 (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
             4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
              Sin[2*theta]^2)) + (1.5*^-6*Cos[theta]*
            (-3.*^-6*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                   E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^3)*(-3./(E^(4.*r^2)*r) + 
               (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                   r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) + 
             ((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
                  (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) + 
                 (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                  (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                     r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                    8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
              (2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                (1 + 3*Cos[2*theta])))*Sin[theta]*
            (1.8*^-11*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2 + 
             (1 + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*Sin[theta]^2)*(2 - 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
                 (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^5 - (6*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*
                (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
                 (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2) - 
             3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
              (4 - 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
                 (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^5 - (6*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 6.*^-6*
                (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
                Cos[2*theta] + 3.*^-6*(10.5/(E^(4.*r^2)*r) - 
                 (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
                 (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2) + 
             6.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
               (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
               ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
              (Cos[2*theta] - 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                 (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*Sin[theta]^4)))/((-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
             1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
               (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
               (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                    E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                    16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                  E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
             6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
              (1 - 3*Sin[theta]^2 + 3.75*^-7*(10.5/(E^(4.*r^2)*r) - 
                 (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
             4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
              Sin[2*theta]^2)*(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
             1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
               (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
               (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                    E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                    16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                  E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
             3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
              (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                 (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
             4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
              Sin[2*theta]^2)) + (7.5*^-7*Sin[2*theta]*
            (-8.*^-6*(9.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2 + 
               (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)/4 - 3.*^-6*(-3./(E^(4.*r^2)*r) + 
                  (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
                Cos[2*theta] + 3*(1.5/(E^(4.*r^2)*r) - 
                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2))/r^3)*(-1 + 2.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                   (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                       E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
                      (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                        (0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                   (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                      (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                   (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                     (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                     4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                    r)*(-1 + 3*Cos[2*theta])))*(-9.*^-6*(-3./(E^(4.*r^2)*r) + 
                 (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                  r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                     E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                     E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
                ((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^5 + (6*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r^2)*Cos[theta]^2*Sin[theta]^2 - (3*
                 ((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + 
                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                 (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                    (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                        E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
                      (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                        (0. + 2.*r^3))/E^(4.*r^2))/r^3) - 7.5*^-7*
                   (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                       (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                    (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                        E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                        E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                       (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
                        E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                        E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                        E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                        E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                      (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/
                       E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                        (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                         16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                      8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                         E^(4.*r^2)))/r)*Sin[theta]^2))/2) + 
             (3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                  r^5 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                     E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                     E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                (1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                   ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 
                 ((10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                       (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                    (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                        E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                        E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                       (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
                        E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                        E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                        E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                        E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                      (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/
                       E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                        (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                         16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                      8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                         E^(4.*r^2)))/r)*(1.*^-6 - 3.*^-6*Cos[2*theta]))/4) + 
               3.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
                ((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^5 + (6*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r^2)*Cos[2*theta])*(-8 + 3.6*^-11*(1.5/(E^(4.*r^2)*r) - 
                  (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
               6.*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*Sin[theta]^2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2))/r^3)*(4 - 12*Cos[2*theta] - 3.*^-6*
                  (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                   (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                       E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                      (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                       E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                       E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                       E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                     (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
                      r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 1.8*^-11*
                (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                  (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
                Sin[2*theta]^2)))/(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
             1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
               (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
               (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                    E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                    16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                  E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
             3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
              (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                 (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
             4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
              Sin[2*theta]^2)^2 - (3.*^-6*Cos[theta]*Sin[theta]*
            (((4.5*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                 ((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) + 
                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                  (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^3 - (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                      E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
                      r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                        E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
                    (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                         2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
                     E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
                      2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                    12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                     r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                    6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                       E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                    4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
                       E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                      (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
                      (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
                     E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                      8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                    (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                     E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                        r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                      (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
                3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + 
                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                 (2 - 0.000012*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/
                        E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                    ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                      0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                      ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 
                  2.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                       (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                    (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                        E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                        E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                      (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                       E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                       E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/
                     r^2) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
                    (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                        E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
                       (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                       ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                    (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                        E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                       (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                       ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                    (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                      (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                        (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                         16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                      8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                         E^(4.*r^2)))/r)*Sin[theta]^2) + 
                ((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^5 + (6*((6.*r^2)/E^(4.*r^2) + 
                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
                  (3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^3 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^2)*(-2 + 6.*^-6*(1.5/(E^(4.*r^2)*r) - 
                    (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                        E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
                      (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                        (0. + 2.*r^3))/E^(4.*r^2))/r^3) + 3.*^-6*r*
                   (-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
                       (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                    (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                        E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                        E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
                      (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                       E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                       E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/
                     r^3) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
                    (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                        E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
                       (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                       ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                    (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                        E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                       (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                       ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                    (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                      (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                        (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                         16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                      8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                         E^(4.*r^2)))/r)*Sin[theta]^2 - 7.5*^-7*r*
                   (-52.5/(E^(4.*r^2)*r^2) + (105*((2.*r^3)/E^(4.*r^2) + 
                       (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                    (48*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                        E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                        E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
                       (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
                        E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                        E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                        E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                        E^(4.*r^2)))/r^3 - (3*(0. + 12./E^(4.*r^2) + 
                       (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/
                        E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                         (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./
                          E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*
                        (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                       ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                        E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                       8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                          E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                          8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                          E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                          E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
                      (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + 
                        (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*
                        r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/
                         E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r))*r^2 + 18.*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/
                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                       r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                         E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                         E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                      6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                         E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                      4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
                         E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                        (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
                        (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
                       E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                       E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                         16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                      8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                         E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                        8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                      (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                       E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
                         E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                        (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/
                         E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                         E^(4.*r^2)))/r)*Sin[theta]^2) + 1.*^-6*
                 (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                  (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
                 ((-3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                         E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) + 
                        (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                        ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                     (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                         E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                        (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                        ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                     (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                         E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                        3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
                         r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                         r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                        6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                        ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                         E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                        8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                          E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                          8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                          E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                          E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
                       (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + 
                         (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^
                          2*r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/
                          E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r))*r^2 + 18.*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/
                        E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                        r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                       6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                          E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                       4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                         (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
                         (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                       ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
                        E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                          E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                        E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                          16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                       8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                          E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                         8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                       (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                        E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                          8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
                          E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                         (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/
                          E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                          E^(4.*r^2)))/r)*Sin[theta]^2)/2 + 
                  r*(3*((-15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                          E^(4.*r^2)))/r^6 + (15*((6.*r^2)/E^(4.*r^2) + 
                         (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                         ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^5 - 
                      (6*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                          E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                         (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                         ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                      (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                        (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./
                          E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                        4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./
                          E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*
                         (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                        ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                         E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                        8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                          E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                          8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                          E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                          E^(4.*r^2)))/r^3) - (3*((-105*((2.*r^3)/
                          E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                        r^6 + (105*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                          r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                          E^(4.*r^2)))/r^5 - (48*((12.*r)/E^(4.*r^2) + 
                          (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
                          E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                          E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                          E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                          E^(4.*r^2)))/r^4 + (13*(0. + 12./E^(4.*r^2) + 
                          (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/
                          E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                          (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./
                          E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*
                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                          ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                          E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                          8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                          E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                          8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                          E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                          E^(4.*r^2))))/r^3 - (3*((24.*(0. - 8.*r))/
                          E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 24.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                          6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
                          r + (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                          (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                          18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                          r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                          6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                          E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                          4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                          (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
                          (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                          ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
                          E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                          E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                          E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                          16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                          8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                          E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                          8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                          (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                          E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                          8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
                          E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                          (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/
                          E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                          E^(4.*r^2))))/r^2 + (0. - 672./E^(4.*r^2) + 
                         24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                         6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*
                          r^2)) + ((12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/
                          E^(4.*r^2) + ((0. + 12.*(0. - 8.*r) - 288.*r)*
                          (0. - 8.*r))/E^(4.*r^2) + (2*(12.*(0. - 8.*r) - 
                          96.*r)*(0. - 8.*r))/E^(4.*r^2) + (24.*(0. - 8.*r)^
                          2)/E^(4.*r^2) + 12*(0. - (32.*(0. - 8.*r))/
                          E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r))*r + 48.*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                         48.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)*r + (6912.*r^2)/E^(4.*r^2) + 
                         6.*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                         3*(-16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*
                          r^2)) + 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                         12.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 
                         4.*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 
                         2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*
                          r^3 + 0.5*r^4*(-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)) - 16.*
                          (12./E^(4.*r^2) + (12.*(0. - 8.*r)*r)/E^(4.*r^2)) + 
                         3*r^2*(256./E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) + 2.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 
                          8.*r) + (256.*(0. - 8.*r)*r)/E^(4.*r^2)) + 
                         24.*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                          E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                         24.*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                          (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (12.*(0. - 8.*r)*r - 96.*r^2) + (-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. + 12.*(0. - 8.*r)*r - 
                          96.*r^2) + 12.*(-8./E^(4.*r^2) + (64.*r^2)/
                          E^(4.*r^2)) - 192.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                          E^(4.*r^2)) + 6.*r^2*(192./E^(4.*r^2) - 
                          (8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*
                          r)/E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + 
                          (64.*(0. - 8.*r)^2*r^2)/E^(4.*r^2)) + 
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 - 16.*r^3) + 
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3) + 
                         (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*(0. + 
                          2.*r^3) - 8.*(6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^2 + 2.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3) - 
                         8.*(12./E^(4.*r^2) + (36.*(0. - 8.*r)*r)/
                          E^(4.*r^2) - (96.*r^2)/E^(4.*r^2) + 6.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                          2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^3 - (96.*(0. - 8.*r)*r^3)/
                          E^(4.*r^2)) + 4.*r^3*(0. + (384.*(0. - 8.*r))/
                          E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - 
                          (3072.*r)/E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/
                          E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 
                          24.*(0. - 8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/
                          E^(4.*r^2))) + 24.*r*((128.*r)/E^(4.*r^2) - 
                          8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + 
                         ((0. - 8.*r)*((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 
                          96.*r^2) - 8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3)))/
                          E^(4.*r^2) - 8.*((0. + 12.*(0. - 8.*r)*r - 96.*r^2)/
                          E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                          16.*r^3))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                          (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)) + 
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)) - 
                         8.*(6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          r^2 + ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*(0. + 2.*r^3)) + 6.*r^2*(128./
                          E^(4.*r^2) - (1024.*r^2)/E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 8.*r*
                          ((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                          (64.*r^2)/E^(4.*r^2)))) + ((0. - 8.*r)*((0. - 8.*r)*
                          (12.*(0. - 8.*r)*r - 96.*r^2) - 8.*(6.*(0. - 8.*r)*
                          r^2 - 8.*(0. + 2.*r^3))))/E^(4.*r^2) - 
                         8.*((12.*(0. - 8.*r)*r - 96.*r^2)/E^(4.*r^2) + 
                          ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 
                          2.*r^3)))/E^(4.*r^2)) - 8.*(12./E^(4.*r^2) + 
                          (12.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/
                          E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^2 + 6.*r^2*(-8./E^(4.*r^2) + 
                          (64.*r^2)/E^(4.*r^2)) + (-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 
                          2.*r^3) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                          8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                          E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                          E^(4.*r^2))))/r)*Sin[theta]^2)/4)))*(-4 + 
                1.8*^-11*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                   ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
                 (1 + 3*Cos[2*theta]) - 3.*^-6*(10.5/(E^(4.*r^2)*r) - 
                  (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r)*Sin[theta]^2 + 1.5*^-6*(1.5/(E^(4.*r^2)*r) - 
                  (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2))/r^3)*(4 - 12*Cos[2*theta] - 
                  3.*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                       (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                    (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                        E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                        E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                       (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
                        E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                        E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                        E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                        E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                      (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/
                       E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                        (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                         16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                      8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                         E^(4.*r^2)))/r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
                9.*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                   (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                       E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                     (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
                      E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                     0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
                 Sin[2*theta]^2))/2 + 1.*^-6*(-0.000018*(1.5/(E^(4.*r^2)*r) - 
                  (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2))/r^3)^2 + 6*(1.5/(E^(4.*r^2)*r) - 
                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2))/r^3)*(1 + 1.*^-6*(-3./(E^(4.*r^2)*r) + 
                   (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                       E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                      (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                        (0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                   ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/
                    r^2) + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                   (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                       E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
                      (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                        (0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                   (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                      (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                   (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                     (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                     4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                    r)*Sin[theta]^2) + (-3./(E^(4.*r^2)*r) + 
                 (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                  r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                     E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                     E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
                (-2 + 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
                   (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                       E^(4.*r^2)))/r^5 - (6*((6.*r^2)/E^(4.*r^2) + 
                      (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                        (0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                   ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/
                    r^3) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
                   (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                       E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
                      (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                        (0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                   (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                      (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                   (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                     (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                     4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                    r)*Sin[theta]^2 - 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
                   (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                       E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
                      (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                        (0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                   (13*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                      (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                   (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                      (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                        (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                         16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                      8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                         E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
                     (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + 
                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*
                       r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
                       2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                      r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                        E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                        E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                     6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                        E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                     4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
                        E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                       (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
                      E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                        E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                       8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                     (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
                        E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                       (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                       ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
                  Sin[theta]^2))*((3*((21*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                  (21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                      E^(4.*r^2)))/r^4 + (9*((12.*r)/E^(4.*r^2) + 
                     (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
                      E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                     0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                  (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                     (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                     4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                        E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
                    (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                         2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
                     E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
                      2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                    12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                     r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                    6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                       E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                    4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
                       E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                      (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
                      (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
                     E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                      8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                    (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                     E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                        r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                      (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 2.*r^3))/E^(4.*r^2)))/r)*(2 + 3.*^-6*
                   (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                       (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                    ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                      0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                      ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                   (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 3*
                ((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                  r^5 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                     E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                     E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                (-1 + 3*Cos[2*theta] - 6.*^-6*(1.5/(E^(4.*r^2)*r) - 
                   (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                       E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                       (0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta]) + 
                 7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                   (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                       E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                      (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                       E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                       E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                       E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                     (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
                      r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 9.*^-6*
                (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
                ((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^5 + (6*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r^2)*Sin[2*theta]^2)))/(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
             1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
               (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
               (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                    E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                    16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                  E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
             3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
              (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                 (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
             4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
              Sin[2*theta]^2)^2) + r^2*(1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
            (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
             r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
              0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
              ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 
          7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
               (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
            (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
               ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
            (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
               (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                 (0. + 2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
              (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
              12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
              3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
              4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^
                3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                 E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
              6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
              ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
              (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 
                2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                 E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)*
         ((5.*^-7*(-9.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
               (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
               ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
              ((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
                  (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) + 
                 (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                  (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                     r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                    8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*Cos[theta]^2*
              Sin[theta]^2 - (3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                     r^4)/E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + 
                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                      2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
                  (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])*(-1 + 
                3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 
                7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r)*Sin[theta]^2))/2)*(r*(2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) - 
                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2))/r^3) - 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
                 (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^5 - (6*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*
                (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
                 (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)*
              (-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
              (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
              (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
               (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
               ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
              Sin[2*theta]^2))/(r^2*(9.*^-12*(-3./(E^(4.*r^2)*r) + 
                (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^2)^2*Cos[theta]^2*Sin[theta]^2 - 
             (1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 7.5*^-7*
                (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*Sin[theta]^2)*(1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
            (2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
              (1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
               (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                  (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                 (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                  (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                     r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                    8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
             3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
              (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                 (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
             4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
              Sin[2*theta]^2)) - 
          (5.*^-7*((3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                    E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + 
                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                      2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
                  (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^3)*(2 + 3.*^-6*
                 (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                 (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
              (3.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
                ((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^5 + (6*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r^2)*Cos[theta]^2 + (((21*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                  (21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                      E^(4.*r^2)))/r^4 + (9*((12.*r)/E^(4.*r^2) + 
                     (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
                      E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                     0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                  (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                     (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                     4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                        E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
                    (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                         2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
                     E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
                      2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                    12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                     r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                    6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                       E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                    4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
                       E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                      (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
                      (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
                     E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                      8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                    (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                     E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                        r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                      (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 2.*r^3))/E^(4.*r^2)))/r)*(-1 + 3.*^-6*
                   (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                       (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                    ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                      0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                      ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                   (-2 + 3*Sin[theta]^2)))/4))*
            (r*(2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 3.*^-6*r*
                (-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                 (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*
                (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
                 (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)*
              (-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
              (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
              (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
               (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
               ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
              Sin[2*theta]^2))/(r^2*(9.*^-12*(-3./(E^(4.*r^2)*r) + 
                (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^2)^2*Cos[theta]^2*Sin[theta]^2 - 
             (1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 7.5*^-7*
                (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*Sin[theta]^2)*(1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
            (-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
              (1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
               (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                  (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                 (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                  (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                     r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                    8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
             6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
              (1 - 3*Sin[theta]^2 + 3.75*^-7*(10.5/(E^(4.*r^2)*r) - 
                 (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
             4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
              Sin[2*theta]^2)) + (4.5*^-12*Cos[theta]^2*
            (-3.*^-6*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                   E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^3)*(-3./(E^(4.*r^2)*r) + 
               (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                   r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) + 
             ((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
                  (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) + 
                 (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                  (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                     r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                    8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
              (2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                (1 + 3*Cos[2*theta])))*Sin[theta]^2*
            (-0.000018*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2 + 
             6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
              (1 + 1.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2) + 7.5*^-7*
                (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*Sin[theta]^2) + (-3./(E^(4.*r^2)*r) + 
               (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                   r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)*(-2 + 3.*^-6*r*
                (-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                 (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 1.5*^-6*
                (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*Sin[theta]^2 - 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
                 (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)))/
           (r*(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
              (1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
               (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                  (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                 (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                  (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                     r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                    8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
             3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
              (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                 (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
             4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
              Sin[2*theta]^2)*(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
             1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
               (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
               (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                    E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                    16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                  E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
             3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
              (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                 (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
             4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
              Sin[2*theta]^2)) - (4.5*^-12*Cos[theta]^2*
            (-3.*^-6*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                   E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^3)*(-3./(E^(4.*r^2)*r) + 
               (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                   r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) + 
             ((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
                  (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) + 
                 (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                  (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                     r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                    8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
              (2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                (1 + 3*Cos[2*theta])))*Sin[theta]^2*
            (6.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
              Cos[2*theta] - ((10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               (2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                 (1 + 3*Cos[2*theta])))/4 + (-3./(E^(4.*r^2)*r) + 
               (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                   r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)*(2 - 6.*^-6*
                (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 3.*^-6*r*
                (-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                 (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*
                (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
                 (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)))/
           (r*(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
              (1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
               (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                  (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                 (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                  (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                     r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                    8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
             3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
              (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                 (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
             4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
              Sin[2*theta]^2)*(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
             1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
               (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
               (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                    E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                    16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                  E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
             3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
              (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                 (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
             4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
              Sin[2*theta]^2)) + 
          (1.5*^-6*(3.*^-6*(9.*^-6*(1.5/(E^(4.*r^2)*r) - 
                  (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2))/r^3)^2 + (10.5/(E^(4.*r^2)*r) - 
                 (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)/4 - 3.*^-6*(-3./(E^(4.*r^2)*r) + 
                  (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
                Cos[2*theta] + 3*(1.5/(E^(4.*r^2)*r) - 
                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2))/r^3)*(-1 + 2.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                   (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                       E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
                      (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                        (0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                   (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                      (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                   (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                     (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                     4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                    r)*(-1 + 3*Cos[2*theta])))*(-3.*^-6*
                ((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                  r^5 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                     E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                     E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
                (1 + 3*Cos[2*theta]) + ((-6*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 + 
                 (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
                 (3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r^2)*(2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                   (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                       E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                       (0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))*
              Sin[2*theta]^2 + Cos[theta]^2*(-3.*^-6*
                ((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                  r^5 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                     E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                     E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
                (1 + 3*Cos[2*theta]) + ((-6*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 + 
                 (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
                 (3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r^2)*(2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                   (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                       E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                       (0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))*
              (-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
                (1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
                 (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*Sin[theta]^2 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*
                  (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                   (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                       E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                      (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                       E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                       E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                       E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                     (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
                      r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
                (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                  (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
                Sin[2*theta]^2) - (-3.*^-6*((3*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
                (1 + 3*Cos[2*theta]) + ((-6*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 + 
                 (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
                 (3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r^2)*(2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                   (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                       E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                       (0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))*
              Sin[theta]^2*(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
                  (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
               1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*Sin[theta]^2 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*
                  (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                   (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                       E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                      (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                       E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                       E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                       E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                     (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
                      r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
                (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                  (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
                Sin[2*theta]^2) + 6.*^-6*(3*((3*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2) - 3*
                (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                ((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^5 + (6*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r^2))*Cos[theta]*Sin[theta]*Sin[2*theta]*(-2 + 9.*^-12*
                (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
                (1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
                 (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*Sin[theta]^2 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*
                  (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                   (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                       E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                      (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                       E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                       E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                       E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                     (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
                      r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
                (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                  (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
                Sin[2*theta]^2)))/(r*(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
              1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               Sin[theta]^2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*
                 (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
              4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
               Sin[2*theta]^2)^2) - 
          (5.*^-7*r*(9.*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
               Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                  (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2))/r^3) + 7.5*^-7*
                 (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r)*Sin[theta]^2)*(1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                  (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
             (6*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)*(2 - 
                6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 
                3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                  (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 
                1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r)*Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
                  (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                  (13*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                  (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                     (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                     4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                        E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
                    (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                         2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
                     E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
                      2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                    12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                     r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                    6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                       E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                    4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
                       E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                      (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
                      (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
                     E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                      8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                    (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                     E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                        r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                      (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2) + 
              2*(-6*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + 
                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 
                3*r*((-15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^6 + (15*((6.*r^2)/E^(4.*r^2) + 
                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r^5 - 
                  (6*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^4 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^3) + (3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                        r^4)/E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) + 
                      (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                        (0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                   (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                      (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                   (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                      (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                        (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                         16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                      8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                         E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
                     (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + 
                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*
                       r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
                       2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                      r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                        E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                        E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                     6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                        E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                     4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
                        E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                       (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
                      E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                        E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                       8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                     (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
                        E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                       (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                       ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
                  Sin[theta]^2)/2 + (3*r*((-105*((2.*r^3)/E^(4.*r^2) + 
                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^6 + 
                   (105*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                       E^(4.*r^2)))/r^5 - (48*((12.*r)/E^(4.*r^2) + 
                      (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                       E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                       E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                       E^(4.*r^2)))/r^4 + (13*(0. + 12./E^(4.*r^2) + 
                      (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/
                       E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                        (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                         16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                      8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                         E^(4.*r^2))))/r^3 - (3*((24.*(0. - 8.*r))/
                       E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 24.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                      (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                        (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                      18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/
                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                       r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                         E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                         E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                      6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                         E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                      4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
                         E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                        (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
                        (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
                       E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                       E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                         16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                      8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                         E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                        8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                      (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                       E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
                         E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                        (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/
                         E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                         E^(4.*r^2))))/r^2 + (0. - 672./E^(4.*r^2) + 
                     24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                     ((12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                     ((0. + 12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/
                      E^(4.*r^2) + (2*(12.*(0. - 8.*r) - 96.*r)*(0. - 8.*r))/
                      E^(4.*r^2) + (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     12*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                         8.*r))*r + 48.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 48.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (6912.*r^2)/
                      E^(4.*r^2) + 6.*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                     3*(-16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r))*r^2 + 12.*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 4.*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*r^4*(-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)) - 16.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*
                         r)/E^(4.*r^2)) + 3*r^2*(256./E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) + (256.*(0. - 8.*r)*r)/
                        E^(4.*r^2)) + 24.*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + 
                       (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
                        E^(4.*r^2)) + 24.*r^2*(192./E^(4.*r^2) - 
                       (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                        E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (12.*(0. - 8.*r)*r - 96.*r^2) + (-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. + 12.*(0. - 8.*r)*r - 
                       96.*r^2) + 12.*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 192.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) + 6.*r^2*(192./E^(4.*r^2) - 
                       (8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/
                        E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^
                          2*r^2)/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                      (6.*(0. - 8.*r)*r^2 - 16.*r^3) + (-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*
                        r^2 - 16.*r^3) + (128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*(6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                       2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^3) - 8.*(12./E^(4.*r^2) + 
                       (36.*(0. - 8.*r)*r)/E^(4.*r^2) - (96.*r^2)/
                        E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^2 + 2.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
                       (96.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 4.*r^3*(0. + 
                       (384.*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. - 8.*r)^3)/
                        E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + (384.*(0. - 8.*r)^
                          2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/
                        E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                         (64.*r^2)/E^(4.*r^2))) + 24.*r*((128.*r)/
                        E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                          E^(4.*r^2))) + ((0. - 8.*r)*((0. - 8.*r)*(0. + 
                          12.*(0. - 8.*r)*r - 96.*r^2) - 8.*(6.*(0. - 8.*r)*
                          r^2 - 16.*r^3)))/E^(4.*r^2) - 8.*
                      ((0. + 12.*(0. - 8.*r)*r - 96.*r^2)/E^(4.*r^2) + 
                       ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                        E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)) - 8.*(6.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r^2 + ((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 
                         2.*r^3)) + 6.*r^2*(128./E^(4.*r^2) - (1024.*r^2)/
                        E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/
                          E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*
                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))) + 
                     ((0. - 8.*r)*((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                          96.*r^2) - 8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 
                          2.*r^3))))/E^(4.*r^2) - 8.*((12.*(0. - 8.*r)*r - 
                         96.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*
                          r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2)) - 
                     8.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                       (192.*r^2)/E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 6.*r^2*
                        (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                         8.*r)*(0. + 2.*r^3) + ((0. - 8.*r)*(6.*(0. - 8.*r)*
                          r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
                       8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                          E^(4.*r^2))))/r)*Sin[theta]^2)/4)*(-1 + 
                3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                 (-2 + 3*Sin[theta]^2)) + 0.000027*((3*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(
                -3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*Sin[2*theta]^
                2 + 0.000027*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(
                (-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                 r^2)*Sin[2*theta]^2) - (r*(2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) - 
                  (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2))/r^3) - 3.*^-6*r*
                 (-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                  (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 
                1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r)*Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
                  (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                  (13*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                  (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                     (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                     4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                        E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
                    (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                         2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
                     E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
                      2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                    12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                     r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                    6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                       E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                    4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
                       E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                      (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
                      (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
                     E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                      8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                    (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                     E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                        r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                      (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)*(-1 + 
                3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                 (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*(
                1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(
                -3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*Sin[2*theta]^
                2)*(3.*^-6*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                    E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + 
                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                      2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
                  (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)*(1 - 
                3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 
                7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r)*Sin[theta]^2) + 1.*^-6*(3*((3*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                  (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 
                (3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                       E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) + 
                      (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                        (0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                   (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                      (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                   (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                      (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                        (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                         16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                      8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                         E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
                     (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + 
                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*
                       r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
                       2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                      r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                        E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                        E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                     6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                        E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                     4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
                        E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                       (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
                      E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                        E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                       8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                     (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
                        E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                       (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                       ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
                  Sin[theta]^2)/4)*(1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                  (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)) + 
              4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(
                (-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                 r^2)*Sin[2*theta]^2))/(2*r^2*
            (-9.*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
               Cos[theta]^2*Sin[theta]^2 + (1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                  (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2))/r^3) + 7.5*^-7*
                 (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r)*Sin[theta]^2)*(1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                  (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))^2)))/
       (Sqrt[2]*r) + (-3.*^-6*r*(-3./(E^(4.*r^2)*r) + 
         (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
         (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
            0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
            ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
         ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
           (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
              E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
           0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
            r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
           ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*Cos[theta]*
        Sin[theta]*((3.*^-12*r*Cos[theta]*Sin[theta]*
           (-9.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
             ((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*Cos[theta]^2*
             Sin[theta]^2 - (3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                    r^4)/E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])*
              (-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 7.5*^-7*
                (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*Sin[theta]^2))/2)*
           (((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
             (1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 
              7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               Sin[theta]^2) + 1.*^-6*(-3./(E^(4.*r^2)*r) + 
              (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                 E^(4.*r^2))/r^2)*(3*((3*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 
              (3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^4 + (9*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)/4)))/
          (2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)^2 + 
         (3.*^-12*r*Cos[theta]*Sin[theta]*
           (((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
             (1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 
              7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               Sin[theta]^2) + 1.*^-6*(-3./(E^(4.*r^2)*r) + 
              (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                 E^(4.*r^2))/r^2)*(3*((3*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 
              (3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^4 + (9*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)/4))*
           ((3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^5 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                   r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^3)*(2 + 3.*^-6*
                (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
             (3.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(
                (-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                 r^2)*Cos[theta]^2 + (((21*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                 (21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                 (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*(-1 + 3.*^-6*
                  (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                   ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                  (-2 + 3*Sin[theta]^2)))/4)))/
          ((2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)*
           (-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
            6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (1 - 3*Sin[theta]^2 + 3.75*^-7*(10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) - 
         (3.*^-6*r*Cos[theta]*Sin[theta]*
           (-1/2*((((-6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                     E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                     E^(4.*r^2)))/r^5 + (6*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
                 (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                  r^3 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r^2)*(-1 + 3.*^-6*
                  (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                   ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 
                 7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                   (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                       E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                      (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                       E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                       E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                       E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                     (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
                      r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                    r)*Sin[theta]^2) - 1.*^-6*(-3./(E^(4.*r^2)*r) + 
                 (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                  r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                     E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                     E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
                (3*((3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                       E^(4.*r^2)))/r^5 - (3*((12.*r)/E^(4.*r^2) + 
                      (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                       E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                       E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                       E^(4.*r^2)))/r^4 + (0. + 12./E^(4.*r^2) + 
                     (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
                      r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                    r^3) - (3*((21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                         r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                        E^(4.*r^2)))/r^5 - (21*((12.*r)/E^(4.*r^2) + 
                       (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
                        E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                        E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                        E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                        E^(4.*r^2)))/r^4 + (9*(0. + 12./E^(4.*r^2) + 
                       (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/
                        E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                         (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./
                          E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*
                        (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                       ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                        E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                       8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                          E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                          8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                          E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                          E^(4.*r^2))))/r^3 - (2*((24.*(0. - 8.*r))/
                        E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 24.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                       6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
                        r + (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                         (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                       18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/
                        E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                        r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                       6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                          E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                       4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                         (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
                         (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                       ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
                        E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                          E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                        E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                          16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                       8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                          E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                         8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                       (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                        E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                          8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
                          E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                         (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/
                          E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                          E^(4.*r^2))))/r^2 + (0. - 672./E^(4.*r^2) + 
                      24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                      ((12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                      ((0. + 12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/
                       E^(4.*r^2) + (2*(12.*(0. - 8.*r) - 96.*r)*(0. - 8.*r))/
                       E^(4.*r^2) + (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      12*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r))*r + 48.*((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                      48.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r)*r + (6912.*r^2)/E^(4.*r^2) + 
                      6.*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r))*r^2 + 3*(-16.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r))*r^2 + 12.*(128./
                         E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 4.*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*r^4*(-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)) - 16.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*
                          r)/E^(4.*r^2)) + 3*r^2*(256./E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) + (256.*(0. - 8.*r)*r)/
                         E^(4.*r^2)) + 24.*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + 
                        (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
                         E^(4.*r^2)) + 24.*r^2*(192./E^(4.*r^2) - 
                        (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                         E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (12.*(0. - 8.*r)*r - 96.*r^2) + (-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. + 12.*(0. - 8.*r)*r - 
                        96.*r^2) + 12.*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2)) - 192.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2)) + 6.*r^2*(192./E^(4.*r^2) - 
                        (8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/
                         E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + 
                        (64.*(0. - 8.*r)^2*r^2)/E^(4.*r^2)) + 
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 - 16.*r^3) + 
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                       (6.*(0. - 8.*r)*r^2 - 16.*r^3) + (128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                      8.*(6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r^2 + 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r^3) - 8.*
                       (12./E^(4.*r^2) + (36.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                        (96.*r^2)/E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 2.*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
                        (96.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 4.*r^3*(0. + 
                        (384.*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. - 8.*r)^3)/
                         E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + (384.*
                          (0. - 8.*r)^2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*
                          r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                          (64.*r^2)/E^(4.*r^2))) + 24.*r*((128.*r)/
                         E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                          E^(4.*r^2))) + ((0. - 8.*r)*((0. - 8.*r)*(0. + 
                          12.*(0. - 8.*r)*r - 96.*r^2) - 8.*(6.*(0. - 8.*r)*
                          r^2 - 16.*r^3)))/E^(4.*r^2) - 8.*
                       ((0. + 12.*(0. - 8.*r)*r - 96.*r^2)/E^(4.*r^2) + 
                        ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                         E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)) - 8.*(6.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r^2 + ((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 
                          2.*r^3)) + 6.*r^2*(128./E^(4.*r^2) - (1024.*r^2)/
                         E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/
                          E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*
                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))) + 
                      ((0. - 8.*r)*((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                          96.*r^2) - 8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 
                          2.*r^3))))/E^(4.*r^2) - 8.*((12.*(0. - 8.*r)*r - 
                          96.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*
                          r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2)) - 
                      8.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                        (192.*r^2)/E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 6.*r^2*
                         (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r)*(0. + 2.*r^3) + ((0. - 8.*r)*(6.*(0. - 8.*r)*
                          r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
                        8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                          E^(4.*r^2))))/r)*Sin[theta]^2)/4))*(-4 + 1.8*^-11*
                (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
                (1 + 3*Cos[2*theta]) - 3.*^-6*(10.5/(E^(4.*r^2)*r) - 
                 (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*Sin[theta]^2 + 1.5*^-6*(1.5/(E^(4.*r^2)*r) - 
                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2))/r^3)*(4 - 12*Cos[2*theta] - 3.*^-6*
                  (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                   (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                       E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                      (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                       E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                       E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                       E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                     (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
                      r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-12*
                (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                  (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
                Sin[2*theta]^2)) + 1.*^-6*(((-6*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 + 
                (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
                (3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                 r^2)*(1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                  (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2))/r^3) + 7.5*^-7*
                 (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r)*Sin[theta]^2) + 1.*^-6*(-3./(E^(4.*r^2)*r) + 
                (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^2)*(3*((3*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                  (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 
                (3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                       E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) + 
                      (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                        (0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                   (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                      (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                   (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                      (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                        (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                         16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                      8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                         E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
                     (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + 
                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*
                       r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
                       2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                      r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                        E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                        E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                     6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                        E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                     4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
                        E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                       (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
                      E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                        E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                       8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                     (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
                        E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                       (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                       ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
                  Sin[theta]^2)/4))*((3*((21*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                 (21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                 (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*(2 + 3.*^-6*
                  (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                   ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
              3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] - 
                6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                 (1 + 3*Cos[2*theta]) + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                  (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
              9.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(
                (-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                 r^2)*Sin[2*theta]^2)))/
          (2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)^2) + 
       r^2*(1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
           (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
           ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
             0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
             ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 
         7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
              (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
           (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
              0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
              ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
           (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
              (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
              0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
               r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                (0. + 2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
             (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
             12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
             3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
             4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
              r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
              (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                 (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
               (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
               (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
             8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
             ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
              E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                 (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)*
        ((-1.*^-12*((3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                    E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + 
                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                      2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
                  (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^3)*(2 + 3.*^-6*
                 (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                 (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
              (3.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
                ((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^5 + (6*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r^2)*Cos[theta]^2 + (((21*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                  (21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                      E^(4.*r^2)))/r^4 + (9*((12.*r)/E^(4.*r^2) + 
                     (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
                      E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                     0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                  (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                     (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                     4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                        E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
                    (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                         2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
                     E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
                      2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                    12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                     r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                    6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                       E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                    4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
                       E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                      (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
                      (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
                     E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                      8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                    (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                     E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                        r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                      (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 2.*r^3))/E^(4.*r^2)))/r)*(-1 + 3.*^-6*
                   (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                       (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                    ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                      0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                      ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                   (-2 + 3*Sin[theta]^2)))/4))^2)/
          (-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
            6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (1 - 3*Sin[theta]^2 + 3.75*^-7*(10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)^2 + 
         (4.5*^-12*Cos[theta]^2*(-3.*^-6*((3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
             (1 + 3*Cos[2*theta]) + ((-6*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 + 
              (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
              (3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
              (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                   E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                 E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
             (2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 + 
                3*Cos[2*theta])))*Sin[theta]^2*
           (((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
             (1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 
              7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               Sin[theta]^2) + 1.*^-6*(-3./(E^(4.*r^2)*r) + 
              (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                 E^(4.*r^2))/r^2)*(3*((3*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 
              (3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^4 + (9*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)/4)))/
          ((2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)*
           (-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) - 
         (1.*^-6*(((9.*^-6*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + 
                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
                (1 + 3*Cos[2*theta]) + 3*((3*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^5 - (3*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r^3)*(2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                   (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                       E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                       (0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 + 
                   3*Cos[2*theta])) + 6*Sin[theta]^2*(3.*^-6*
                  ((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                        E^(4.*r^2)))/r^5 + (6*((6.*r^2)/E^(4.*r^2) + 
                       (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                       ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
                    (3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                        E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                       (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                       ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                    (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                      (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                        (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                         16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                      8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                         E^(4.*r^2)))/r^2)^2*Cos[theta]^2 + 3.*^-6*
                  (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                   (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                       E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                     (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
                      E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                     0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
                  ((-6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                       E^(4.*r^2)))/r^5 + (6*((12.*r)/E^(4.*r^2) + 
                      (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                       E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                       E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                       E^(4.*r^2)))/r^4 - (3*(0. + 12./E^(4.*r^2) + 
                      (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/
                       E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                        (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                         16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                      8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                         E^(4.*r^2))))/r^3 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
                     (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + 
                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*
                       r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
                       2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                      r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                        E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                        E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                     6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                        E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                     4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
                        E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                       (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
                      E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                        E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                       8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                     (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
                        E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                       (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                       ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
                  Cos[theta]^2 + 7.5*^-7*((3*((2.*r^3)/E^(4.*r^2) + 
                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                   (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                       E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
                     (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
                      E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                     0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                  ((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                       E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) + 
                      (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                        (0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                   (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                      (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                   (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                      (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                        (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                         16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                      8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                         E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
                     (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + 
                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*
                       r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
                       2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                      r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                        E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                        E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                     6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                        E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                     4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
                        E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                       (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
                      E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                        E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                       8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                     (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
                        E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                       (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                       ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
                  (-2 + 3*Sin[theta]^2) + (((21*((6.*r^2)/E^(4.*r^2) + 
                       (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                       ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^5 - 
                    (21*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                        E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                       (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                       ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                    (9*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                        E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                       3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
                        r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                       0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                       6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                       ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                        E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                       8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                          E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                          8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                          E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                          E^(4.*r^2))))/r^3 - (2*((24.*(0. - 8.*r))/
                        E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 24.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                       6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
                        r + (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                         (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                       18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/
                        E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
                         8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                         (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                        r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                       6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                          E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                       4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                         (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
                         (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                       ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
                        E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                          E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                        E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                          16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                       8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                          E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                         8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                       (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                        E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                          8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
                          E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                         (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/
                          E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                          E^(4.*r^2))))/r^2 + (0. - 672./E^(4.*r^2) + 
                      24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                      ((12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                      ((0. + 12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/
                       E^(4.*r^2) + (2*(12.*(0. - 8.*r) - 96.*r)*(0. - 8.*r))/
                       E^(4.*r^2) + (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      12*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r))*r + 48.*((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                      48.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r)*r + (6912.*r^2)/E^(4.*r^2) + 
                      6.*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r))*r^2 + 3*(-16.*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r))*r^2 + 12.*(128./
                         E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 4.*(0. - 
                        8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                        (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*r^4*(-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)) - 16.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*
                          r)/E^(4.*r^2)) + 3*r^2*(256./E^(4.*r^2) - 
                        16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) + (256.*(0. - 8.*r)*r)/
                         E^(4.*r^2)) + 24.*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + 
                        (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
                         E^(4.*r^2)) + 24.*r^2*(192./E^(4.*r^2) - 
                        (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                         E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (12.*(0. - 8.*r)*r - 96.*r^2) + (-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. + 12.*(0. - 8.*r)*r - 
                        96.*r^2) + 12.*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2)) - 192.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2)) + 6.*r^2*(192./E^(4.*r^2) - 
                        (8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/
                         E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + 
                        (64.*(0. - 8.*r)^2*r^2)/E^(4.*r^2)) + 
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 - 16.*r^3) + 
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                       (6.*(0. - 8.*r)*r^2 - 16.*r^3) + (128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                      8.*(6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         r^2 + 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r^3) - 8.*
                       (12./E^(4.*r^2) + (36.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                        (96.*r^2)/E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 2.*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
                        (96.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 4.*r^3*(0. + 
                        (384.*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. - 8.*r)^3)/
                         E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + (384.*
                          (0. - 8.*r)^2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*
                          r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                          (64.*r^2)/E^(4.*r^2))) + 24.*r*((128.*r)/
                         E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                          E^(4.*r^2))) + ((0. - 8.*r)*((0. - 8.*r)*(0. + 
                          12.*(0. - 8.*r)*r - 96.*r^2) - 8.*(6.*(0. - 8.*r)*
                          r^2 - 16.*r^3)))/E^(4.*r^2) - 8.*
                       ((0. + 12.*(0. - 8.*r)*r - 96.*r^2)/E^(4.*r^2) + 
                        ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                         E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)) - 8.*(6.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r^2 + ((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 
                          2.*r^3)) + 6.*r^2*(128./E^(4.*r^2) - (1024.*r^2)/
                         E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/
                          E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*
                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))) + 
                      ((0. - 8.*r)*((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                          96.*r^2) - 8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 
                          2.*r^3))))/E^(4.*r^2) - 8.*((12.*(0. - 8.*r)*r - 
                          96.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*
                          r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2)) - 
                      8.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                        (192.*r^2)/E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 6.*r^2*
                         (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r)*(0. + 2.*r^3) + ((0. - 8.*r)*(6.*(0. - 8.*r)*
                          r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
                        8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                          E^(4.*r^2))))/r)*(-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                      (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                          E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
                        (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*
                         (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                        ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                     (-2 + 3*Sin[theta]^2)))/4))*(-2 + 9.*^-12*
                (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
                (1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
                 (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*Sin[theta]^2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) - 
                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2))/r^3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*
                  (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                   (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                       E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                      (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                       E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                       E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                       E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                     (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
                      r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
                (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                  (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
                Sin[2*theta]^2))/2 - 2.5*^-7*(6*((3*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(2 + 
                3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                 (1 + 3*Cos[2*theta])) - (3*((21*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                 (21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                 (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*(2 + 3.*^-6*
                  (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                   ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/2 + 
              9.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(
                (-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                 r^2)*Sin[2*theta]^2)*((-3*((21*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                 (21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                 (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*(2 + 3.*^-6*
                  (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                   ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
              3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^3)*(1 - 3*Cos[2*theta] + 
                6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                 (1 + 3*Cos[2*theta]) - 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                  (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              9.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(
                (-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                 r^2)*Sin[2*theta]^2)))/
          (2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)^2))/
      (2*Sqrt[2]*r))/(Sqrt[2]*r))/2 + 
 ((I*Csc[theta]*(((-1/2*I)*r*Sin[theta]*(1 - 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
           (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
            r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
              0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
              ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
           (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
              (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
              0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
               r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                (0. + 2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
             (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
             12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
             3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
             4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
              r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
              (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                 (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
               (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
               (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
             8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
             ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
              E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                 (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
         3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
              (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
           ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
             0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
             ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
          (-1 + 3*Sin[theta]^2))*
        ((-5.*^-7*(-9.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
              (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                 E^(4.*r^2))/r^3) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r) + 
            7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + (105*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
              (48*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
              (13*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
              (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                    E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                    16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                  E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 2.*r^3))/E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/
                 E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + 
                  (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*
                 r^2 + 18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                  (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*((-16.*(0. - 8.*r))/
                   E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
                   E^(4.*r^2)) + 4.*r^3*(192./E^(4.*r^2) - 
                  (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                   E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                12.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) - 
                8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
                6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                    (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                  (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
                8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r) - 
            2*Csc[theta]^2 + 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
              (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                 E^(4.*r^2))/r^3)*Csc[theta]^2 + 6.*^-6*(1.5/(E^(4.*r^2)*r) - 
              (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-3 + Csc[theta]^2))*((3*((21*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
               (21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
               (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
               (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                 (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/
                    E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                  r^2 + (1536.*r^3)/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^3 + 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(0. - 
                   8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                   (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*((-16.*(0. - 8.*r))/
                    E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
                    E^(4.*r^2)) + 4.*r^3*(192./E^(4.*r^2) - 
                   (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                    E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 
                 ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
                  E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                    E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                  E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
                 6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                     (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
                    8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
                 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
              Sin[theta]^2)/4 + 3*((3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (1 - 3*Sin[theta]^2)))/(r*(7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r) - 
            Csc[theta]^2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
              (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-3 + Csc[theta]^2))*(-2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
              (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
             Sin[theta]^2)) - 
         (1.*^-6*(-((3.*^-6*(-7.5/(E^(4.*r^2)*r^2) + 
                 (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^5 - (6*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                (-1 + 3*Cos[2*theta]) + 1.5*^-6*(-52.5/(E^(4.*r^2)*r^2) + 
                 (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)*
              ((3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) + 
                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                  (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^3 - (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                      E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
                      r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                        E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
                    (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                         2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
                     E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
                      2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                    12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                     r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                    6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                       E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                    4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
                       E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                      (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
                      (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
                     E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                      8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                    (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                     E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                        r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                      (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)/4 + 3*
                ((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                  r^5 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                     E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                     E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                (1 - 3*Sin[theta]^2))) + (-2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta]) + 
              1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               Sin[theta]^2)*((3*((-105*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^6 + 
                 (105*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                     E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                     E^(4.*r^2)))/r^5 - (48*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                 (13*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                  r^3 - (3*((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/
                     E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                         2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
                     E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
                      2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                    12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                     r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                    6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                       E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                    4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
                       E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                      (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
                      (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
                     E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                      8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                    (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                     E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                        r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                      (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 2.*r^3))/E^(4.*r^2))))/r^2 + 
                 (0. - 672./E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                      E^(4.*r^2)) + ((12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/
                    E^(4.*r^2) + ((0. + 12.*(0. - 8.*r) - 288.*r)*(0. - 
                      8.*r))/E^(4.*r^2) + (2*(12.*(0. - 8.*r) - 96.*r)*
                     (0. - 8.*r))/E^(4.*r^2) + (24.*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 12*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
                     2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r))*r + 48.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 48.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (6912.*r^2)/
                    E^(4.*r^2) + 6.*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                   3*(-16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*(0. - 8.*r))*r^2 + 12.*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^2 + 4.*(0. - 8.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                     (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                     (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                      E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*r^4*(-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)) - 
                   16.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*r)/E^(4.*r^2)) + 
                   3*r^2*(256./E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + 2.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                     (256.*(0. - 8.*r)*r)/E^(4.*r^2)) + 24.*r*
                    ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                     (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 24.*r^2*
                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(12.*(0. - 8.*r)*r - 96.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 
                     12.*(0. - 8.*r)*r - 96.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (64.*r^2)/E^(4.*r^2)) - 192.*r^2*(-8./E^(4.*r^2) + 
                     (64.*r^2)/E^(4.*r^2)) + 6.*r^2*(192./E^(4.*r^2) - 
                     (8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/
                      E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^2*
                       r^2)/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 - 
                     16.*r^3) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3) + 
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*(6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^3) - 8.*(12./E^(4.*r^2) + 
                     (36.*(0. - 8.*r)*r)/E^(4.*r^2) - (96.*r^2)/E^(4.*r^2) + 
                     6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^3 - (96.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
                   4.*r^3*(0. + (384.*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + 
                     (384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*
                       r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                       (64.*r^2)/E^(4.*r^2))) + 24.*r*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + 
                   ((0. - 8.*r)*((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 
                        96.*r^2) - 8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3)))/
                    E^(4.*r^2) - 8.*((0. + 12.*(0. - 8.*r)*r - 96.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*
                      r^2 - 8.*(0. + 2.*r^3)) + (-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*
                      r^2 - 8.*(0. + 2.*r^3)) - 8.*(6.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + ((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 
                       2.*r^3)) + 6.*r^2*(128./E^(4.*r^2) - (1024.*r^2)/
                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*
                        (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))) + 
                   ((0. - 8.*r)*((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2) - 
                      8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3))))/
                    E^(4.*r^2) - 8.*((12.*(0. - 8.*r)*r - 96.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2)) - 8.*(12./E^(4.*r^2) + 
                     (12.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                     6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 2.*r^3) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                        E^(4.*r^2))))/r)*Sin[theta]^2)/4 + 
              3*((-15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                    E^(4.*r^2)))/r^6 + (15*((6.*r^2)/E^(4.*r^2) + 
                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                      2.*r^3))/E^(4.*r^2)))/r^5 - (6*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                 r^3)*(1 - 3*Sin[theta]^2))))/
          (-2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)^
           2 + (5.*^-7*(-9.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
              (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                 E^(4.*r^2))/r^3) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r) + 
            7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + (105*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
              (48*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
              (13*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
              (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                    E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                    16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                  E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 2.*r^3))/E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/
                 E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + 
                  (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*
                 r^2 + 18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                  (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*((-16.*(0. - 8.*r))/
                   E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
                   E^(4.*r^2)) + 4.*r^3*(192./E^(4.*r^2) - 
                  (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                   E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                12.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) - 
                8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
                6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                    (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                  (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
                8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r) - 
            2*Csc[theta]^2 + 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
              (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                 E^(4.*r^2))/r^3)*Csc[theta]^2 + 6.*^-6*(1.5/(E^(4.*r^2)*r) - 
              (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-3 + Csc[theta]^2))*(-9.*^-6*(-3./(E^(4.*r^2)*r) + 
              (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                 E^(4.*r^2))/r^2)*((-6*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 + 
              (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
              (3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
              (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                   E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                 E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 2.*r^3))/E^(4.*r^2)))/r^2)*Cos[theta]^2*
             Sin[theta]^2 - (3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                    r^4)/E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])*
              (-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 7.5*^-7*
                (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*Sin[theta]^2))/2))/
          (r*(7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
              (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
              (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                   E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                 E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 2.*r^3))/E^(4.*r^2)))/r) - Csc[theta]^2 + 
            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-3 + Csc[theta]^2))*(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
               (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) + 
         (1.5*^-6*Cos[theta]*(-3.*^-6*((3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
             (1 + 3*Cos[2*theta]) + ((-6*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 + 
              (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
              (3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
              (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                   E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                 E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
             (2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 + 
                3*Cos[2*theta])))*(1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Cos[theta] - 
            Cot[theta]*Csc[theta] + 3*(1.5/(E^(4.*r^2)*r) - 
              (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta])))/
          (r*(7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
              (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
              (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                   E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                 E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 2.*r^3))/E^(4.*r^2)))/r) - Csc[theta]^2 + 
            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
               (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2))))/Sqrt[2] + 
      ((I/2)*r*Sin[theta]*(1 - 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
           (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
            r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
              0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
              ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
           (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
              (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
              0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
               r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                (0. + 2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
             (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
             12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
             3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
             4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
              r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
              (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                 (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
               (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
               (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
             8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
             ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
              E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                 (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
         3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
              (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
           ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
             0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
             ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
          (-1 + 3*Sin[theta]^2))*
        (-1/4*(-9.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
               (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
               ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 
             1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
               (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
               (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                    E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                    16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                  E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 2.*r^3))/E^(4.*r^2)))/r) + 7.5*^-7*r*
              (-52.5/(E^(4.*r^2)*r^2) + (105*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
               (48*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
               (13*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
               (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                 (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/
                    E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                  r^2 + (1536.*r^3)/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^3 + 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(0. - 
                   8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                   (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*((-16.*(0. - 8.*r))/
                    E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
                    E^(4.*r^2)) + 4.*r^3*(192./E^(4.*r^2) - 
                   (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                    E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 
                 ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
                  E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                    E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                  E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
                 6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                     (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
                    8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
                 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r) - 
             2*Csc[theta]^2 + 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
               (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                   r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^3)*Csc[theta]^2 + 
             6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
              (-3 + Csc[theta]^2))^2/(r^2*(7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                 r) - Csc[theta]^2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2))/r^3)*(-3 + Csc[theta]^2))^2) + 
         (7.5*^-13*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                 r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
             r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
              (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
              0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
               r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                (0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])*
           ((3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^5 - (21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2)))/r^4 + (9*((12.*r)/E^(4.*r^2) + 
                  (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^3 - (2*(0. + 12./E^(4.*r^2) + 
                  (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                  12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                  4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                  8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                 (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/
                    E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                  r^2 + (1536.*r^3)/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^3 + 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(0. - 
                   8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                   (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*((-16.*(0. - 8.*r))/
                    E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
                    E^(4.*r^2)) + 4.*r^3*(192./E^(4.*r^2) - 
                   (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                    E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 
                 ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
                  E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                    E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                  E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
                 6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                     (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
                    8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
                 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
              Sin[theta]^2)/4 + 3*((3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (1 - 3*Sin[theta]^2)))/(-2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
             (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
              r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
               0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
               ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
            (-1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
             (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
              r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                 E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
             (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
             (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
               (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                  E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                 (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
                 (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*
                (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
                 (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                  16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 8.*
                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
               ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2) + 
         (1.125*^-12*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
              (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
              (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                   E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                 E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 2.*r^3))/E^(4.*r^2)))/r)^2 - 
           7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
             (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
             (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
             (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
               (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                  E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                 (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
                 (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*
                (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
                 (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                  16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 8.*
                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
               ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0. + 2.*r^3))/E^(4.*r^2)))/r)*
            (7.5*^-7*r^2*(315./(E^(4.*r^2)*r^3) - (630*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^6 + (297*
                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^5 - 
               (87*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
               (19*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                r^3 - (4*((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/
                   E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                     E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                  3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                  18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                  0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
                   ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                     96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. - 
                       8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                  8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
                  6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                      (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
                  8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))))/r^2 + 
               (0. - 672./E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                    E^(4.*r^2)) + ((12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/
                  E^(4.*r^2) + ((0. + 12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/
                  E^(4.*r^2) + (2*(12.*(0. - 8.*r) - 96.*r)*(0. - 8.*r))/
                  E^(4.*r^2) + (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 12*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r + 
                 48.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r + 48.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r + (6912.*r^2)/E^(4.*r^2) + 
                 6.*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                   ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                    (0. - 8.*r))*r^2 + 3*(-16.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) + 2.*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r))*
                  r^2 + 12.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                    E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 
                 4.*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                   (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  (0. - 8.*r)*r^3 + 0.5*r^4*(-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)) - 
                 16.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*r)/E^(4.*r^2)) + 
                 3*r^2*(256./E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                   (256.*(0. - 8.*r)*r)/E^(4.*r^2)) + 24.*r*
                  ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                   (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 24.*r^2*
                  (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                    E^(4.*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (12.*(0. - 8.*r)*r - 96.*r^2) + (-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. + 12.*(0. - 8.*r)*r - 
                   96.*r^2) + 12.*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                 192.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                 6.*r^2*(192./E^(4.*r^2) - (8.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   (256.*(0. - 8.*r)*r)/E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + 
                   (64.*(0. - 8.*r)^2*r^2)/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*
                    r^2 - 16.*r^3) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3) + 
                 (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                 8.*(6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3) - 8.*(12./E^(4.*r^2) + 
                   (36.*(0. - 8.*r)*r)/E^(4.*r^2) - (96.*r^2)/E^(4.*r^2) + 
                   6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                   2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 - (96.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
                 4.*r^3*(0. + (384.*(0. - 8.*r))/E^(4.*r^2) - 
                   (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + 
                   (384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*
                     r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                     (64.*r^2)/E^(4.*r^2))) + 24.*r*((128.*r)/E^(4.*r^2) - 
                   8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + 
                 ((0. - 8.*r)*((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 
                      96.*r^2) - 8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3)))/
                  E^(4.*r^2) - 8.*((0. + 12.*(0. - 8.*r)*r - 96.*r^2)/
                    E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                    E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)) - 8.*(6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^2 + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(0. + 2.*r^3)) + 
                 6.*r^2*(128./E^(4.*r^2) - (1024.*r^2)/E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   8.*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                       (64.*r^2)/E^(4.*r^2)))) + ((0. - 8.*r)*((0. - 8.*r)*
                     (12.*(0. - 8.*r)*r - 96.*r^2) - 8.*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3))))/E^(4.*r^2) - 
                 8.*((12.*(0. - 8.*r)*r - 96.*r^2)/E^(4.*r^2) + 
                   ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                    E^(4.*r^2)) - 8.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*r)/
                    E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 6.*r^2*(-8./E^(4.*r^2) + 
                     (64.*r^2)/E^(4.*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) + ((0. - 8.*r)*
                     (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
                   8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                      E^(4.*r^2))))/r) + 4*Csc[theta]^2 - 
             6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
              (-1 + 3*Cos[2*theta])*Csc[theta]^2 + 3.*^-6*r^2*
              (45./(E^(4.*r^2)*r^3) - (90*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^6 + 
               (39*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^5 - 
               (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
               (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                    E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                    16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                  E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 2.*r^3))/E^(4.*r^2)))/r^3)*(-3 + Csc[theta]^2)) + 
           (2.25*^-12*r^2*(-52.5/(E^(4.*r^2)*r^2) + 
                (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                    E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                      2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                 r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                  24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                    (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                  18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                  0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
                   ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                     96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. - 
                       8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                  8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
                  6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                      (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
                  8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)^2 + 
             9.000000000000001*^-12*r^2*(-7.5/(E^(4.*r^2)*r^2) + 
               (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                   r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^3)*(-52.5/(E^(4.*r^2)*r^2) + 
               (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^5 - (48*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
                  (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^3 - (3*(0. + 12./E^(4.*r^2) + 
                  (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                  12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                  3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                  4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                    8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                    (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                     E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                  8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                 (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/
                    E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                  r^2 + (1536.*r^3)/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^3 + 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(0. - 
                   8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                   (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*((-16.*(0. - 8.*r))/
                    E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
                    E^(4.*r^2)) + 4.*r^3*(192./E^(4.*r^2) - 
                   (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                    E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 
                 ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                 ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
                  E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                    E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                  E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                  E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                  (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
                 6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                     (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
                    8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                   (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
                 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
              (-1 + 3*Cos[2*theta])*Csc[theta]^2 + 1.8*^-11*
              (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
              (1 - 3*Cos[2*theta])^2*Csc[theta]^4 + 9.*^-12*r^2*
              (-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
              (1 - 3*Cos[2*theta])^2*Csc[theta]^4 + 4*Csc[theta]^2*
              (7.5*^-7*r^2*(315./(E^(4.*r^2)*r^3) - (630*((2.*r^3)/
                     E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^6 + 
                 (297*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                     E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                     E^(4.*r^2)))/r^5 - (87*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                 (19*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                  r^3 - (4*((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/
                     E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                         2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
                     E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
                      2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                    12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                     r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                    6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                       E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                    4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
                       E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                      (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
                      (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
                     E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                      8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                    (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                     E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                        r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                      (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 2.*r^3))/E^(4.*r^2))))/r^2 + 
                 (0. - 672./E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                      E^(4.*r^2)) + ((12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/
                    E^(4.*r^2) + ((0. + 12.*(0. - 8.*r) - 288.*r)*(0. - 
                      8.*r))/E^(4.*r^2) + (2*(12.*(0. - 8.*r) - 96.*r)*
                     (0. - 8.*r))/E^(4.*r^2) + (24.*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 12*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
                     2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r))*r + 48.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 48.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (6912.*r^2)/
                    E^(4.*r^2) + 6.*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                   3*(-16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*(0. - 8.*r))*r^2 + 12.*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^2 + 4.*(0. - 8.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                     (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                     (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                      E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*r^4*(-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)) - 
                   16.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*r)/E^(4.*r^2)) + 
                   3*r^2*(256./E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + 2.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                     (256.*(0. - 8.*r)*r)/E^(4.*r^2)) + 24.*r*
                    ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                     (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 24.*r^2*
                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(12.*(0. - 8.*r)*r - 96.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 
                     12.*(0. - 8.*r)*r - 96.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (64.*r^2)/E^(4.*r^2)) - 192.*r^2*(-8./E^(4.*r^2) + 
                     (64.*r^2)/E^(4.*r^2)) + 6.*r^2*(192./E^(4.*r^2) - 
                     (8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/
                      E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^2*
                       r^2)/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 - 
                     16.*r^3) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3) + 
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*(6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^3) - 8.*(12./E^(4.*r^2) + 
                     (36.*(0. - 8.*r)*r)/E^(4.*r^2) - (96.*r^2)/E^(4.*r^2) + 
                     6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^3 - (96.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
                   4.*r^3*(0. + (384.*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + 
                     (384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*
                       r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                       (64.*r^2)/E^(4.*r^2))) + 24.*r*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + 
                   ((0. - 8.*r)*((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 
                        96.*r^2) - 8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3)))/
                    E^(4.*r^2) - 8.*((0. + 12.*(0. - 8.*r)*r - 96.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*
                      r^2 - 8.*(0. + 2.*r^3)) + (-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*
                      r^2 - 8.*(0. + 2.*r^3)) - 8.*(6.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + ((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 
                       2.*r^3)) + 6.*r^2*(128./E^(4.*r^2) - (1024.*r^2)/
                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*
                        (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))) + 
                   ((0. - 8.*r)*((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2) - 
                      8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3))))/
                    E^(4.*r^2) - 8.*((12.*(0. - 8.*r)*r - 96.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2)) - 8.*(12./E^(4.*r^2) + 
                     (12.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                     6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 2.*r^3) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                        E^(4.*r^2))))/r) + 2*Csc[theta]^2 + 3.*^-6*r^2*
                (45./(E^(4.*r^2)*r^3) - (90*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^6 + 
                 (39*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^5 - 
                 (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r^3)*(-3 + Csc[theta]^2)) - 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
               (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
                r^3)*(-1 + 3*Cos[2*theta])*Csc[theta]^4*(8 + 3.*^-6*r^2*
                (45./(E^(4.*r^2)*r^3) - (90*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^6 + 
                 (39*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^5 - 
                 (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r^3)*(-1 + 3*Cos[2*theta]) + 1.5*^-6*r^2*
                (315./(E^(4.*r^2)*r^3) - (630*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^6 + 
                 (297*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                     E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                     E^(4.*r^2)))/r^5 - (87*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                 (19*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                  r^3 - (4*((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/
                     E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                         2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
                     E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
                      2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                    12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                     r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                    6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                       E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                    4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
                       E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                      (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
                      (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
                     E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                      8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                    (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                     E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                        r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                      (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 2.*r^3))/E^(4.*r^2))))/r^2 + 
                 (0. - 672./E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                      E^(4.*r^2)) + ((12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/
                    E^(4.*r^2) + ((0. + 12.*(0. - 8.*r) - 288.*r)*(0. - 
                      8.*r))/E^(4.*r^2) + (2*(12.*(0. - 8.*r) - 96.*r)*
                     (0. - 8.*r))/E^(4.*r^2) + (24.*(0. - 8.*r)^2)/
                    E^(4.*r^2) + 12*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
                     2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r))*r + 48.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*r + 48.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (6912.*r^2)/
                    E^(4.*r^2) + 6.*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                   3*(-16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*(0. - 8.*r))*r^2 + 12.*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^2 + 4.*(0. - 8.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2)) + 
                     (640.*(0. - 8.*r))/E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r) - 
                     (56.*(0. - 8.*r)^3)/E^(4.*r^2) + (0. - 8.*r)^5/
                      E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*r^4*(-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)) - 
                   16.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*r)/E^(4.*r^2)) + 
                   3*r^2*(256./E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2)) + 2.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r) + 
                     (256.*(0. - 8.*r)*r)/E^(4.*r^2)) + 24.*r*
                    ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                     (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 24.*r^2*
                    (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(12.*(0. - 8.*r)*r - 96.*r^2) + 
                   (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. + 
                     12.*(0. - 8.*r)*r - 96.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (64.*r^2)/E^(4.*r^2)) - 192.*r^2*(-8./E^(4.*r^2) + 
                     (64.*r^2)/E^(4.*r^2)) + 6.*r^2*(192./E^(4.*r^2) - 
                     (8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/
                      E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^2*
                       r^2)/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                     (0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 - 
                     16.*r^3) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                    (0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3) + 
                   (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*(6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^3) - 8.*(12./E^(4.*r^2) + 
                     (36.*(0. - 8.*r)*r)/E^(4.*r^2) - (96.*r^2)/E^(4.*r^2) + 
                     6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^3 - (96.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
                   4.*r^3*(0. + (384.*(0. - 8.*r))/E^(4.*r^2) - 
                     (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + 
                     (384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*
                       r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                       (64.*r^2)/E^(4.*r^2))) + 24.*r*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + 
                   ((0. - 8.*r)*((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 
                        96.*r^2) - 8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3)))/
                    E^(4.*r^2) - 8.*((0. + 12.*(0. - 8.*r)*r - 96.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*
                      r^2 - 8.*(0. + 2.*r^3)) + (-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*
                      r^2 - 8.*(0. + 2.*r^3)) - 8.*(6.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + ((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 
                       2.*r^3)) + 6.*r^2*(128./E^(4.*r^2) - (1024.*r^2)/
                      E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*
                        (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))) + 
                   ((0. - 8.*r)*((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2) - 
                      8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3))))/
                    E^(4.*r^2) - 8.*((12.*(0. - 8.*r)*r - 96.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2)) - 8.*(12./E^(4.*r^2) + 
                     (12.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                     6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                      (0. + 2.*r^3) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                        E^(4.*r^2))))/r)*Sin[theta]^2))/4)/
          (2*r^2*(7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
               (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
               (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                    E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                    16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                  E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 2.*r^3))/E^(4.*r^2)))/r) - Csc[theta]^2 + 
             3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
              (-3 + Csc[theta]^2))^2) + 
         (7.5*^-7*(4*r*(15./(E^(4.*r^2)*r^2) - (30*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 + 
              (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
              (5*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
              (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                   E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                 E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 2.*r^3))/E^(4.*r^2)))/r^2) - 
            0.000018*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - (-3./(E^(4.*r^2)*r) + 
              (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                 E^(4.*r^2))/r^2)*(-4 + 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
                (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])) + 
            6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-2 + 1.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(1 + 
                3*Cos[2*theta]) + 1.*^-6*r*(15./(E^(4.*r^2)*r^2) - 
                (30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 + (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 - (5*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                 r^2)*(1 + 3*Cos[2*theta])))*Csc[theta]*
           (1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
              (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
              (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                   E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                 E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 2.*r^3))/E^(4.*r^2)))/r)*Cos[theta] - 
            Cot[theta]*Csc[theta] + 3*(1.5/(E^(4.*r^2)*r) - 
              (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-6.*^-6*Cos[theta] + 1.*^-6*Cot[theta]*Csc[theta]))*
           Sin[2*theta])/(r^2*(7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r) - 
            Csc[theta]^2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
              (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
               (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) + 
         (2.5*^-7*(-9.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
              (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                 E^(4.*r^2))/r^3) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r) + 
            7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + (105*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
              (48*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
              (13*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
              (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                    E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                    16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                  E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 2.*r^3))/E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/
                 E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + 
                  (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
                 E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*
                 r^2 + 18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                  (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*((-16.*(0. - 8.*r))/
                   E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
                   E^(4.*r^2)) + 4.*r^3*(192./E^(4.*r^2) - 
                  (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                   E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                12.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) - 
                8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
                6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                    (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                  (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
                8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r) - 
            2*Csc[theta]^2 + 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
              (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                 E^(4.*r^2))/r^3)*Csc[theta]^2 + 6.*^-6*(1.5/(E^(4.*r^2)*r) - 
              (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-3 + Csc[theta]^2))*(-3*r*(-7.5/(E^(4.*r^2)*r^2) + 
              (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                 E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])*
             (1 + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               Sin[theta]^2) + 9.*^-6*(-3./(E^(4.*r^2)*r) + 
               (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                   r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2 + 
            9.*^-6*r*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
             (15./(E^(4.*r^2)*r^2) - (30*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 + 
              (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
              (5*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
              (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                   E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                 E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 2.*r^3))/E^(4.*r^2)))/r^2)*Sin[2*theta]^2 + 
            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (3*r*(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 + 
                3*Cos[2*theta]) - 9*(-3./(E^(4.*r^2)*r) + 
                (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^2)*Sin[2*theta]^2)))/
          (r^2*(7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
              (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
              (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                   E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                 E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 2.*r^3))/E^(4.*r^2)))/r) - Csc[theta]^2 + 
            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-3 + Csc[theta]^2))*(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
               (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2))))/Sqrt[2]))/
    (Sqrt[2]*r) - 
   ((-3.*^-6*r*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
            (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
         (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
            0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
            ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
         ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
           (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
              E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
           0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
            r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
           ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*Cos[theta]*
        Sin[theta]*((-3.*^-12*Cos[theta]*Sin[theta]*
           (-9.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
             ((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*Cos[theta]^2*
             Sin[theta]^2 - (3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                    r^4)/E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])*
              (-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 7.5*^-7*
                (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*Sin[theta]^2))/2)*(-0.000018*(1.5/(E^(4.*r^2)*r) - 
               (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
                r^3)^2 + 6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (1 + 1.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2) + 
              7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               Sin[theta]^2) + (-3./(E^(4.*r^2)*r) + 
              (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                 E^(4.*r^2))/r^2)*(-2 + 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
                (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^3) - 1.5*^-6*(10.5/(E^(4.*r^2)*
                  r) - (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                    E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                      2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               Sin[theta]^2 - 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
                (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                    E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                      2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                 r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                  24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                    (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                  18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                  0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
                   ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                     96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. - 
                       8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                  8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
                  6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                      (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
                  8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^
                2)))/(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
               (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)^2 + 
         (3.*^-12*Cos[theta]*Sin[theta]*(-0.000018*(1.5/(E^(4.*r^2)*r) - 
               (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
                r^3)^2 + 6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (1 + 1.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2) + 
              7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               Sin[theta]^2) + (-3./(E^(4.*r^2)*r) + 
              (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                 E^(4.*r^2))/r^2)*(-2 + 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
                (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^3) - 1.5*^-6*(10.5/(E^(4.*r^2)*
                  r) - (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                    E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                      2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               Sin[theta]^2 - 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
                (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                    E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                      2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                 r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                  24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                    (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                  18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                  0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
                   ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                     96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. - 
                       8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                  8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
                  6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                      (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
                  8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^
                2))*((3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                   E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^3)*(2 + 3.*^-6*
                (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
             (3.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(
                (-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                 r^2)*Cos[theta]^2 + (((21*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                 (21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                 (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*(-1 + 3.*^-6*
                  (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                   ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                  (-2 + 3*Sin[theta]^2)))/4)))/
          ((2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)*
           (-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
            6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (1 - 3*Sin[theta]^2 + 3.75*^-7*(10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) + 
         (1.5*^-6*Cos[theta]*(-3.*^-6*((3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
             (1 + 3*Cos[2*theta]) + ((-6*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 + 
              (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
              (3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
              (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                   E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                 E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
             (2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 + 
                3*Cos[2*theta])))*Sin[theta]*
           (1.8*^-11*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2 + 
            (1 + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               Sin[theta]^2)*(2 - 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
                (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*(10.5/(E^(4.*r^2)*
                  r) - (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                    E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                      2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
                (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                    E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                      2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                 r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                  24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                    (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                  18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                  0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
                   ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                     96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. - 
                       8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                  8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
                  6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                      (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
                  8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^
                2) - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (4 - 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
                (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^3) + 6.*^-6*(-3./(E^(4.*r^2)*r) + 
                (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^2)*Cos[2*theta] + 
              3.*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
                (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                    E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                      2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                 r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                  24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                    (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                  18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                  0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
                   ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                     96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. - 
                       8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                  8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
                  6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                      (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
                  8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^
                2) + 6.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
             (Cos[2*theta] - 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               Sin[theta]^4)))/((-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
               (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
                r^3)^2*(1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
            6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (1 - 3*Sin[theta]^2 + 3.75*^-7*(10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)*
           (-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) + 
         (1.5*^-12*Cos[theta]*Sin[theta]*
           (((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
             (1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 
              7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               Sin[theta]^2) + 1.*^-6*(-3./(E^(4.*r^2)*r) + 
              (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                 E^(4.*r^2))/r^2)*(3*((3*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 
              (3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^4 + (9*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)/4))*
           (-3*r*(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
              (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (1 + 3*Cos[2*theta])*(1 + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               Sin[theta]^2) + 9.*^-6*(-3./(E^(4.*r^2)*r) + 
               (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                   r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2 + 
            9.*^-6*r*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
             (15./(E^(4.*r^2)*r^2) - (30*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 + 
              (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
              (5*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
              (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                   E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                 E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 2.*r^3))/E^(4.*r^2)))/r^2)*Sin[2*theta]^2 + 
            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (3*r*(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 + 
                3*Cos[2*theta]) - 9*(-3./(E^(4.*r^2)*r) + 
                (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^2)*Sin[2*theta]^2)))/
          ((2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)*
           (-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) + 
         (7.5*^-7*Sin[2*theta]*(-8.*^-6*(9.*^-6*(1.5/(E^(4.*r^2)*r) - 
                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2))/r^3)^2 + (10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)/
               4 - 3.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*Cos[
                2*theta] + 3*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(-1 + 
                2.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r)*(-1 + 3*Cos[2*theta])))*(-9.*^-6*(-3./(E^(4.*r^2)*r) + 
                (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^2)*((-6*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 + 
                (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
                (3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                 r^2)*Cos[theta]^2*Sin[theta]^2 - 
              (3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                (1 + 3*Cos[2*theta])*(-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                   (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                       E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                       (0. + 2.*r^3))/E^(4.*r^2))/r^3) - 7.5*^-7*
                  (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                   (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                       E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                      (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                       E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                       E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                       E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                     (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
                      r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                    r)*Sin[theta]^2))/2) + 
            (3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^3)*(1 - 3.*^-6*
                 (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 
                ((10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                   (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                       E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                      (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                       E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                       E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                       E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                     (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
                      r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                    r)*(1.*^-6 - 3.*^-6*Cos[2*theta]))/4) + 
              3.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(
                (-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                 r^2)*Cos[2*theta])*(-8 + 3.6*^-11*(1.5/(E^(4.*r^2)*r) - 
                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
              6.*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               Sin[theta]^2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2))/r^3)*(4 - 12*Cos[2*theta] - 3.*^-6*
                 (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              1.8*^-11*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
               Sin[2*theta]^2)))/(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
               (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)^2 - 
         (3.*^-6*Cos[theta]*Sin[theta]*
           (-((((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                  r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                     E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                     E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r^2)*(1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                   (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                       E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                       (0. + 2.*r^3))/E^(4.*r^2))/r^3) + 7.5*^-7*
                  (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                   (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                       E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                      (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                       E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                       E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                       E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                     (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
                      r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                    r)*Sin[theta]^2) + 1.*^-6*(-3./(E^(4.*r^2)*r) + 
                 (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                  r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                     E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                     E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
                (3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                       E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + 
                      (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                        (0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                   ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/
                    r^3) - (3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                         r^4)/E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) + 
                       (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                       ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                    (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                        E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                       (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                       ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                    (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                        E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                       3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
                        r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                       0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                       6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                       ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                        E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                       8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                          E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                          8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                          E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                          E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
                      (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + 
                        (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*
                        r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/
                         E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r))*r^2 + 18.*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/
                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                       r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                         E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                         E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                      6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                         E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                      4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
                         E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                        (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
                        (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
                       E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                       E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                         16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                      8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                         E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                        8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                      (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                       E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
                         E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                        (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/
                         E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                         E^(4.*r^2)))/r)*Sin[theta]^2)/4))*(2 - 9.*^-12*
                (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
                (1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
                 (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*Sin[theta]^2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*
                  (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                   (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                       E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                      (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                       E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                       E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                       E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                     (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
                      r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
                (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                  (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
                Sin[2*theta]^2)) - r*(((30*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^6 - 
                (30*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^5 + 
                (15*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
                (5*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                 r^3 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                  24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                    (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                  18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                  0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
                   ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                     96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. - 
                       8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                  8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
                  6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                      (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
                  8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*(1 - 
                3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 
                7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r)*Sin[theta]^2) - 1.*^-6*((-6*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 + 
                (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
                (3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                 r^2)*(3*(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                  (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 
                (3*(-52.5/(E^(4.*r^2)*r^2) + (105*((2.*r^3)/E^(4.*r^2) + 
                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                   (48*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                       E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
                      (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                       E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                       E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                       E^(4.*r^2)))/r^3 - (3*(0. + 12./E^(4.*r^2) + 
                      (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/
                       E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                        (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                         16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                      8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                         E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
                     (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + 
                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*
                       r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
                       2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                      r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                        E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                        E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                     6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                        E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                     4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
                        E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                       (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
                      E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                        E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                       8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                     (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
                        E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                       (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                       ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
                  Sin[theta]^2)/4) + 1.*^-6*(15./(E^(4.*r^2)*r^2) - 
                (30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 + (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 - (5*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                 r^2)*(3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + 
                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 
                (3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                       E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) + 
                      (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                        (0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                   (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                      (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                   (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                      (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                        (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                         16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                      8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                         E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
                     (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + 
                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*
                       r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
                       2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                      r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                        E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                        E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                     6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                        E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                     4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
                        E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                       (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
                      E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                        E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                       8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                     (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
                        E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                       (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                       ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
                  Sin[theta]^2)/4) + 1.*^-6*(-3./(E^(4.*r^2)*r) + 
                (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^2)*(
                3*((-15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^6 + (15*((6.*r^2)/E^(4.*r^2) + 
                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r^5 - 
                  (6*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^4 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^3) - (3*((-105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                        r^4)/E^(4.*r^2)))/r^6 + (105*((6.*r^2)/E^(4.*r^2) + 
                      (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                        (0. + 2.*r^3))/E^(4.*r^2)))/r^5 - 
                   (48*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                      (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                   (13*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                       E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                      3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
                       r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                      0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*
                       (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                      ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                       E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                      8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                         E^(4.*r^2))))/r^3 - (3*((24.*(0. - 8.*r))/
                       E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 24.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                      (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                        (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                      18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/
                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                       r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                         E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                         E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                      6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                         E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                      4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
                         E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                        (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
                        (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
                       E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                       E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                         16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                      8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                         E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                        8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                      (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                       E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
                         E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                        (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/
                         E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                         E^(4.*r^2))))/r^2 + (0. - 672./E^(4.*r^2) + 
                     24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                     ((12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                     ((0. + 12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/
                      E^(4.*r^2) + (2*(12.*(0. - 8.*r) - 96.*r)*(0. - 8.*r))/
                      E^(4.*r^2) + (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     12*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                         8.*r))*r + 48.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 48.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (6912.*r^2)/
                      E^(4.*r^2) + 6.*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                     3*(-16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r))*r^2 + 12.*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 4.*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*r^4*(-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)) - 16.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*
                         r)/E^(4.*r^2)) + 3*r^2*(256./E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) + (256.*(0. - 8.*r)*r)/
                        E^(4.*r^2)) + 24.*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + 
                       (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
                        E^(4.*r^2)) + 24.*r^2*(192./E^(4.*r^2) - 
                       (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                        E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (12.*(0. - 8.*r)*r - 96.*r^2) + (-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. + 12.*(0. - 8.*r)*r - 
                       96.*r^2) + 12.*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 192.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) + 6.*r^2*(192./E^(4.*r^2) - 
                       (8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/
                        E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^
                          2*r^2)/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                      (6.*(0. - 8.*r)*r^2 - 16.*r^3) + (-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*
                        r^2 - 16.*r^3) + (128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*(6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                       2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^3) - 8.*(12./E^(4.*r^2) + 
                       (36.*(0. - 8.*r)*r)/E^(4.*r^2) - (96.*r^2)/
                        E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^2 + 2.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
                       (96.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 4.*r^3*(0. + 
                       (384.*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. - 8.*r)^3)/
                        E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + (384.*(0. - 8.*r)^
                          2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/
                        E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                         (64.*r^2)/E^(4.*r^2))) + 24.*r*((128.*r)/
                        E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                          E^(4.*r^2))) + ((0. - 8.*r)*((0. - 8.*r)*(0. + 
                          12.*(0. - 8.*r)*r - 96.*r^2) - 8.*(6.*(0. - 8.*r)*
                          r^2 - 16.*r^3)))/E^(4.*r^2) - 8.*
                      ((0. + 12.*(0. - 8.*r)*r - 96.*r^2)/E^(4.*r^2) + 
                       ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                        E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)) - 8.*(6.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r^2 + ((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 
                         2.*r^3)) + 6.*r^2*(128./E^(4.*r^2) - (1024.*r^2)/
                        E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/
                          E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*
                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))) + 
                     ((0. - 8.*r)*((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                          96.*r^2) - 8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 
                          2.*r^3))))/E^(4.*r^2) - 8.*((12.*(0. - 8.*r)*r - 
                         96.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*
                          r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2)) - 
                     8.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                       (192.*r^2)/E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 6.*r^2*
                        (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                         8.*r)*(0. + 2.*r^3) + ((0. - 8.*r)*(6.*(0. - 8.*r)*
                          r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
                       8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                          E^(4.*r^2))))/r)*Sin[theta]^2)/4))*
             (2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*(1 + 
                3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               Sin[theta]^2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*
                 (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
              4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
               Sin[2*theta]^2) + 1.*^-6*r*(((-6*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 + 
                (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
                (3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                 r^2)*(1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                  (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2))/r^3) + 7.5*^-7*
                 (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r)*Sin[theta]^2) + 1.*^-6*(-3./(E^(4.*r^2)*r) + 
                (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^2)*(3*((3*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                  (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 
                (3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                       E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) + 
                      (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                        (0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                   (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                      (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                   (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                      (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                        (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                         16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                      8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                         E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
                     (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + 
                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*
                       r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
                       2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                      r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                        E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                        E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                     6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                        E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                     4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
                        E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                       (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
                      E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                        E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                       8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                     (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
                        E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                       (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                       ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
                  Sin[theta]^2)/4))*((3*(-52.5/(E^(4.*r^2)*r^2) + 
                 (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*(2 + 3.*^-6*
                  (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                   ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
              3*(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(-1 + 
                3*Cos[2*theta] - 6.*^-6*(1.5/(E^(4.*r^2)*r) - 
                  (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta]) + 
                7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
              9.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(
                15./(E^(4.*r^2)*r^2) - (30*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 + 
                (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
                (5*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                 r^2)*Sin[2*theta]^2)))/
          (2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)^2) + 
       r^2*(1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
           (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
           ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
             0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
             ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 
         7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
              (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
           (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
              0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
              ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
           (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
              (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
              0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
               r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                (0. + 2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
             (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
             12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
             3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
             4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
              r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
              (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                 (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
               (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
               (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
             8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
             ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
              E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                 (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)*
        ((5.*^-7*(-9.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
             ((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*Cos[theta]^2*
             Sin[theta]^2 - (3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                    r^4)/E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])*
              (-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 7.5*^-7*
                (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*Sin[theta]^2))/2)*(r*(2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) - 
                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2))/r^3) - 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
                (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*(10.5/(E^(4.*r^2)*
                  r) - (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                    E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                      2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
                (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                    E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                      2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                 r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                  24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                    (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                  18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                  0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
                   ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                     96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. - 
                       8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                  8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
                  6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                      (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
                  8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^
                2)*(-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
            1.3499999999999999*^-11*r*(1.5/(E^(4.*r^2)*r) - 
              (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
             Sin[2*theta]^2))/(r^2*(9.*^-12*(-3./(E^(4.*r^2)*r) + 
               (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                   r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)^2*Cos[theta]^2*Sin[theta]^2 - 
            (1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 
              7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               Sin[theta]^2)*(1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
           (2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) - 
         (5.*^-7*((3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                   E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^3)*(2 + 3.*^-6*
                (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
             (3.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(
                (-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                 r^2)*Cos[theta]^2 + (((21*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                 (21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                 (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*(-1 + 3.*^-6*
                  (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                   ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                  (-2 + 3*Sin[theta]^2)))/4))*
           (r*(2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 
              3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 
              1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
                (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                    E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                      2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                 r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                  24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                    (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                  18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                  0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
                   ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                     96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. - 
                       8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                  8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
                  6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                      (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
                  8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^
                2)*(-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
            1.3499999999999999*^-11*r*(1.5/(E^(4.*r^2)*r) - 
              (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
             Sin[2*theta]^2))/(r^2*(9.*^-12*(-3./(E^(4.*r^2)*r) + 
               (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                   r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)^2*Cos[theta]^2*Sin[theta]^2 - 
            (1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 
              7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               Sin[theta]^2)*(1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
           (-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
            6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (1 - 3*Sin[theta]^2 + 3.75*^-7*(10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) - 
         (4.5*^-12*Cos[theta]^2*(-3.*^-6*((3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
             (1 + 3*Cos[2*theta]) + ((-6*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 + 
              (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
              (3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
              (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                   E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                 E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
             (2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 + 
                3*Cos[2*theta])))*Sin[theta]^2*
           (6.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
               (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
               ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
             Cos[2*theta] - ((10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/
                   E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
               (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
               (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                    E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                    16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                  E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 2.*r^3))/E^(4.*r^2)))/r)*(2 + 3.*^-6*
                (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                (1 + 3*Cos[2*theta])))/4 + (-3./(E^(4.*r^2)*r) + 
              (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                 E^(4.*r^2))/r^2)*(2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) - 
                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2))/r^3) - 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
                (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*(10.5/(E^(4.*r^2)*
                  r) - (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                    E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                      2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
                (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                    E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                      2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                 r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                  24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                    (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                  18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                  0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
                   ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                     96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. - 
                       8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                  8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
                  6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                      (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
                  8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^
                2)))/(r*(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
               (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)*
           (-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) + 
         (2.25*^-12*Cos[theta]*(4*r*(15./(E^(4.*r^2)*r^2) - 
              (30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                5 + (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^4 - (5*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2) - 
            0.000018*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - (-3./(E^(4.*r^2)*r) + 
              (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                 E^(4.*r^2))/r^2)*(-4 + 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
                (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])) + 
            6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-2 + 1.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(1 + 
                3*Cos[2*theta]) + 1.*^-6*r*(15./(E^(4.*r^2)*r^2) - 
                (30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 + (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 - (5*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                 r^2)*(1 + 3*Cos[2*theta])))*Sin[theta]*
           (((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
             (1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 
              7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               Sin[theta]^2) + 1.*^-6*(-3./(E^(4.*r^2)*r) + 
              (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                 E^(4.*r^2))/r^2)*(3*((3*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 
              (3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^4 + (9*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)/4))*
           Sin[2*theta])/(r*(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
               (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)*
           (-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) + 
         (1.5*^-6*(3.*^-6*(9.*^-6*(1.5/(E^(4.*r^2)*r) - 
                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2))/r^3)^2 + (10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)/
               4 - 3.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*Cos[
                2*theta] + 3*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(-1 + 
                2.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r)*(-1 + 3*Cos[2*theta])))*
             (-3.*^-6*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                    E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + 
                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                      2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
                  (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^3)*(-3./(E^(4.*r^2)*r) + 
                (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) + 
              ((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                 r^2)*(2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                  (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))*
             Sin[2*theta]^2 + Cos[theta]^2*(-3.*^-6*(
                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^3)*(-3./(E^(4.*r^2)*r) + 
                (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) + 
              ((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                 r^2)*(2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                  (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))*
             (-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*(1 + 
                3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               Sin[theta]^2 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*
                 (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
               Sin[2*theta]^2) - (-3.*^-6*((3*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(
                -3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(1 + 
                3*Cos[2*theta]) + ((-6*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 + 
                (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
                (3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                 r^2)*(2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                  (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])))*
             Sin[theta]^2*(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
              1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               Sin[theta]^2 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*
                 (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
               Sin[2*theta]^2) + 6.*^-6*(3*((3*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(
                -3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2) - 
              3*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(
                (-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                 r^2))*Cos[theta]*Sin[theta]*Sin[2*theta]*
             (-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*(1 + 
                3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               Sin[theta]^2 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*
                 (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
               Sin[2*theta]^2)))/(r*(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
             1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
               (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
               (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                    E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                    16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                  E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
             3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
              (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                 (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
             4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
              Sin[2*theta]^2)^2) - 
         (2.5*^-7*(2*(9.*^-6*(-7.5/(E^(4.*r^2)*r^2) + 
                (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^3)*((3*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 + 
                3*Cos[2*theta]) + 3*((-15*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^6 + 
                (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^5 - 
                (6*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                 r^3)*(2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                  (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])) + 
              6*Sin[theta]^2*(3.*^-6*(15./(E^(4.*r^2)*r^2) - 
                  (30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^5 + (15*((6.*r^2)/E^(4.*r^2) + 
                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
                  (5*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^3 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^2)*((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^5 + (6*((6.*r^2)/E^(4.*r^2) + 
                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
                  (3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^3 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^2)*Cos[theta]^2 + 3.*^-6*(-3./(E^(4.*r^2)*r) + 
                  (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
                 ((30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^6 - (30*((6.*r^2)/E^(4.*r^2) + 
                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r^5 + 
                  (15*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
                  (5*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                     (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                     4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                        E^(4.*r^2))))/r^3 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
                    (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                         2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
                     E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
                      2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                    12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                     r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                    6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                       E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                    4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
                       E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                      (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
                      (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
                     E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                      8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                    (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                     E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                        r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                      (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 2.*r^3))/E^(4.*r^2)))/r^2)*Cos[theta]^2 + 
                7.5*^-7*(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                  (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                 ((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) + 
                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                  (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^3 - (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                      E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
                      r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                        E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
                    (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                         2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
                     E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
                      2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                    12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                     r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                    6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                       E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                    4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
                       E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                      (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
                      (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
                     E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                      8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                    (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                     E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                        r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                      (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 2.*r^3))/E^(4.*r^2)))/r)*(-2 + 3*Sin[theta]^
                    2) + (((-105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                       E^(4.*r^2)))/r^6 + (105*((6.*r^2)/E^(4.*r^2) + 
                      (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                        (0. + 2.*r^3))/E^(4.*r^2)))/r^5 - 
                   (48*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                      (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                   (13*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                       E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                      3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
                       r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^
                          3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                      0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                        (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*
                       (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                      ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                       E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                      8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                         E^(4.*r^2))))/r^3 - (3*((24.*(0. - 8.*r))/
                       E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 24.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                      6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                      (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                        (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                      18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/
                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                       r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                         E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                         E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                      6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                         E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                      4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
                         E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                        (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
                        (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
                       E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                       E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                         16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                      8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                         E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                        8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                      (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                       E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
                         E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                        (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/
                         E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                         E^(4.*r^2))))/r^2 + (0. - 672./E^(4.*r^2) + 
                     24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                     6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                     ((12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                     ((0. + 12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/
                      E^(4.*r^2) + (2*(12.*(0. - 8.*r) - 96.*r)*(0. - 8.*r))/
                      E^(4.*r^2) + (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     12*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                         8.*r))*r + 48.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r + 48.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (6912.*r^2)/
                      E^(4.*r^2) + 6.*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                     3*(-16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r))*r^2 + 12.*
                      (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 4.*(0. - 
                       8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                       (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*r^4*(-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)) - 16.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*
                         r)/E^(4.*r^2)) + 3*r^2*(256./E^(4.*r^2) - 
                       16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                       2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) + (256.*(0. - 8.*r)*r)/
                        E^(4.*r^2)) + 24.*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + 
                       (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/
                        E^(4.*r^2)) + 24.*r^2*(192./E^(4.*r^2) - 
                       (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*r)/
                        E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (12.*(0. - 8.*r)*r - 96.*r^2) + (-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. + 12.*(0. - 8.*r)*r - 
                       96.*r^2) + 12.*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - 192.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) + 6.*r^2*(192./E^(4.*r^2) - 
                       (8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*r)/
                        E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + (64.*(0. - 8.*r)^
                          2*r^2)/E^(4.*r^2)) + ((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                      (6.*(0. - 8.*r)*r^2 - 16.*r^3) + (-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*
                        r^2 - 16.*r^3) + (128./E^(4.*r^2) - 8.*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*(6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                       2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^3) - 8.*(12./E^(4.*r^2) + 
                       (36.*(0. - 8.*r)*r)/E^(4.*r^2) - (96.*r^2)/
                        E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^2 + 2.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
                       (96.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 4.*r^3*(0. + 
                       (384.*(0. - 8.*r))/E^(4.*r^2) - (8.*(0. - 8.*r)^3)/
                        E^(4.*r^2) - (3072.*r)/E^(4.*r^2) + (384.*(0. - 8.*r)^
                          2*r)/E^(4.*r^2) + (64.*(0. - 8.*r)^3*r^2)/
                        E^(4.*r^2) - 24.*(0. - 8.*r)*(-8./E^(4.*r^2) + 
                         (64.*r^2)/E^(4.*r^2))) + 24.*r*((128.*r)/
                        E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                          E^(4.*r^2))) + ((0. - 8.*r)*((0. - 8.*r)*(0. + 
                          12.*(0. - 8.*r)*r - 96.*r^2) - 8.*(6.*(0. - 8.*r)*
                          r^2 - 16.*r^3)))/E^(4.*r^2) - 8.*
                      ((0. + 12.*(0. - 8.*r)*r - 96.*r^2)/E^(4.*r^2) + 
                       ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                        E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)) - 8.*(6.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r^2 + ((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 
                         2.*r^3)) + 6.*r^2*(128./E^(4.*r^2) - (1024.*r^2)/
                        E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/
                          E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*
                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))) + 
                     ((0. - 8.*r)*((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                          96.*r^2) - 8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 
                          2.*r^3))))/E^(4.*r^2) - 8.*((12.*(0. - 8.*r)*r - 
                         96.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*
                          r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2)) - 
                     8.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                       (192.*r^2)/E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 6.*r^2*
                        (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                         8.*r)*(0. + 2.*r^3) + ((0. - 8.*r)*(6.*(0. - 8.*r)*
                          r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
                       8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                          E^(4.*r^2))))/r)*(-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                     (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                         E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
                       (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                       ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                    (-2 + 3*Sin[theta]^2)))/4))*(-2 + 9.*^-12*
               (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*(1 + 
                3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               Sin[theta]^2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) - 
                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2))/r^3)*(1 - 3*Sin[theta]^2 + 3.75*^-7*
                 (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
               Sin[2*theta]^2) + 1.*^-6*((-3*(-52.5/(E^(4.*r^2)*r^2) + 
                 (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*(2 + 3.*^-6*
                  (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                   ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
              3*(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 - 
                3*Cos[2*theta] + 6.*^-6*(1.5/(E^(4.*r^2)*r) - 
                  (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta]) - 
                7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              9.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(
                15./(E^(4.*r^2)*r^2) - (30*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 + 
                (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
                (5*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                 r^2)*Sin[2*theta]^2)*(-6*((3*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(2 + 
                3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                 (1 + 3*Cos[2*theta])) + (3*((21*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                 (21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                 (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*(2 + 3.*^-6*
                  (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                   ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/2 - 
              9.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(
                (-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                 r^2)*Sin[2*theta]^2)))/
          (2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)^2))/
      (2*Sqrt[2]*r) - 
     (r^2*(1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
              (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
           ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
             0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
             ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 
         7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
              (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
           (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
              0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
              ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
           (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
              (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
              0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
               r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                (0. + 2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
             (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
             12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
             3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
             4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
              r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
              (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                 (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
               (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
               (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
             8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
             ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
              E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                 (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)*
        (-1/4*(r*(2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 3.*^-6*r*
                (-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                 (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*
                (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
                 (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)*
              (-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
              (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
              (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
               (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
               ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
              Sin[2*theta]^2)^2/(r^4*(9.*^-12*(-3./(E^(4.*r^2)*r) + 
                 (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                  r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                     E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                     E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
               Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                  (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2))/r^3) + 7.5*^-7*
                 (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r)*Sin[theta]^2)*(1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                  (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))^2) + 
         (7.5*^-13*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                 r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
             r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
              (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
              0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
               r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                (0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])*
           ((3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^5 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                   r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^3)*(2 + 3.*^-6*
                (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                (1 + 3*Cos[2*theta])))/2 + 3*Sin[theta]^2*
             (3.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(
                (-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                 r^2)*Cos[theta]^2 + (((21*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                 (21*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                 (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*(-1 + 3.*^-6*
                  (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                   ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                  (-2 + 3*Sin[theta]^2)))/4)))/
          (-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
            (1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
             (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
              r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                 E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
             (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
             (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
               (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                  E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                 (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
                 (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*
                (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
                 (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                  16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 8.*
                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
               ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
           6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
             ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
               ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
            (1 - 3*Sin[theta]^2 + 3.75*^-7*(10.5/(E^(4.*r^2)*r) - 
               (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                  (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                 (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                  (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                     r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                    8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
              (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
            (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                   r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                 (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                 E^(4.*r^2))/r^2)^2*Sin[2*theta]^2) + 
         (2.25*^-12*((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                E^(4.*r^2)))/r^5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                 r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
             r^4 - (3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                 (0. - 8.*r)^2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                 (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
            (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
              (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                 E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
                (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
              0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
                (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                 16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
              8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
              ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^
                (4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 2.*r^3))/E^(4.*r^2)))/r^2)*Cos[theta]^2*
           (-3.*^-6*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                  E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + 
                 (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
                (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                 E^(4.*r^2))/r^3)*(-3./(E^(4.*r^2)*r) + 
              (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                 E^(4.*r^2))/r^2)*(1 + 3*Cos[2*theta]) + 
            ((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
             (2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 + 
                3*Cos[2*theta])))*Sin[theta]^2)/
          (-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
            (1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
             (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
              r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                 E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
             (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
             (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
               (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                  E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                 (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
                 (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*
                (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
                 (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                  16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 8.*
                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
               ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
           3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
             ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
               ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
            (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
               (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                  (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                 (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                  (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                     r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                    8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
              (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
            (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                   r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                 (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                 E^(4.*r^2))/r^2)^2*Sin[2*theta]^2) + 
         (2.25*^-12*Cos[theta]*(4*r*(15./(E^(4.*r^2)*r^2) - 
              (30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                5 + (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^4 - (5*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2) - 
            0.000018*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - (-3./(E^(4.*r^2)*r) + 
              (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                 E^(4.*r^2))/r^2)*(-4 + 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
                (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])) + 
            6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-2 + 1.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(1 + 
                3*Cos[2*theta]) + 1.*^-6*r*(15./(E^(4.*r^2)*r^2) - 
                (30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 + (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 - (5*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                 r^2)*(1 + 3*Cos[2*theta])))*Sin[theta]*
           (-0.000018*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2 + 
            6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (1 + 1.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2) + 
              7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               Sin[theta]^2) + (-3./(E^(4.*r^2)*r) + 
              (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                 E^(4.*r^2))/r^2)*(-2 + 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
                (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^3) - 1.5*^-6*(10.5/(E^(4.*r^2)*
                  r) - (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                    E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                      2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               Sin[theta]^2 - 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
                (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                    E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                      2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                 r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                  24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                    (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                  18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                  0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
                   ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                     96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. - 
                       8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                  8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
                  6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                      (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
                  8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^
                2))*Sin[2*theta])/(r^2*(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
               (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)*
           (-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) - 
         (2.25*^-12*Cos[theta]*(4*r*(15./(E^(4.*r^2)*r^2) - 
              (30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                5 + (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^4 - (5*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2) - 
            0.000018*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - (-3./(E^(4.*r^2)*r) + 
              (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                 E^(4.*r^2))/r^2)*(-4 + 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
                (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])) + 
            6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-2 + 1.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(1 + 
                3*Cos[2*theta]) + 1.*^-6*r*(15./(E^(4.*r^2)*r^2) - 
                (30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 + (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 - (5*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                 r^2)*(1 + 3*Cos[2*theta])))*Sin[theta]*
           (6.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
               (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
               ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
             Cos[2*theta] - ((10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/
                   E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
               (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
               (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                    E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                    16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                  E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 2.*r^3))/E^(4.*r^2)))/r)*(2 + 3.*^-6*
                (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                (1 + 3*Cos[2*theta])))/4 + (-3./(E^(4.*r^2)*r) + 
              (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                 E^(4.*r^2))/r^2)*(2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) - 
                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2))/r^3) - 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
                (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*(10.5/(E^(4.*r^2)*
                  r) - (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                    E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                      2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
                (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                    E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                      2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                 r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                  24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                    (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                  18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                  0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
                   ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                     96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. - 
                       8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                  8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
                  6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                      (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
                  8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^
                2))*Sin[2*theta])/(r^2*(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
               (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
                r^3)^2*(1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)*
           (-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) + 
         (2.5*^-7*(r*(2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) - 
                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2))/r^3) - 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
                (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*(10.5/(E^(4.*r^2)*
                  r) - (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                    E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                      2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
                (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                    E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                      2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                 r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                  24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                    (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                  18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                  0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
                   ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                     96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. - 
                       8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                  8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
                  6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                      (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
                  8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^
                2)*(-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
            1.3499999999999999*^-11*r*(1.5/(E^(4.*r^2)*r) - 
              (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
             Sin[2*theta]^2)*(-3*r*(-7.5/(E^(4.*r^2)*r^2) + 
              (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                 E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])*
             (1 + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               Sin[theta]^2) + 9.*^-6*(-3./(E^(4.*r^2)*r) + 
               (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                   r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2 + 
            9.*^-6*r*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
             (15./(E^(4.*r^2)*r^2) - (30*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 + 
              (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
              (5*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
              (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                   E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                 E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 2.*r^3))/E^(4.*r^2)))/r^2)*Sin[2*theta]^2 + 
            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (3*r*(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(1 + 
                3*Cos[2*theta]) - 9*(-3./(E^(4.*r^2)*r) + 
                (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^2)*Sin[2*theta]^2)))/
          (r^3*(9.*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
               (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
               ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
             Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2))/r^3) + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               Sin[theta]^2)*(1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
           (-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) + 
         (7.5*^-7*(-6.*^-6*(9.*^-6*(1.5/(E^(4.*r^2)*r) - 
                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2))/r^3)^2 + (10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)/
               4 - 3.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*Cos[
                2*theta] + 3*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(-1 + 
                2.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r)*(-1 + 3*Cos[2*theta])))*(-4*r*(15./(E^(4.*r^2)*r^2) - 
                (30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 + (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 - (5*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                 r^2) + 0.000018*(1.5/(E^(4.*r^2)*r) - 
                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
              (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(-4 + 
                3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                  (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                 (1 + 3*Cos[2*theta])) - 6*(1.5/(E^(4.*r^2)*r) - 
                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2))/r^3)*(-2 + 1.*^-6*(-3./(E^(4.*r^2)*r) + 
                  (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
                 (1 + 3*Cos[2*theta]) + 1.*^-6*r*(15./(E^(4.*r^2)*r^2) - 
                  (30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^5 + (15*((6.*r^2)/E^(4.*r^2) + 
                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
                  (5*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^3 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^2)*(1 + 3*Cos[2*theta])))*Sin[2*theta]^2 + 
            2*Cos[2*theta]*(4*r*(15./(E^(4.*r^2)*r^2) - 
                (30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 + (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 - (5*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                 r^2) - 0.000018*(1.5/(E^(4.*r^2)*r) - 
                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
              (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(-4 + 
                3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                  (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                 (1 + 3*Cos[2*theta])) + 6*(1.5/(E^(4.*r^2)*r) - 
                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2))/r^3)*(-2 + 1.*^-6*(-3./(E^(4.*r^2)*r) + 
                  (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
                 (1 + 3*Cos[2*theta]) + 1.*^-6*r*(15./(E^(4.*r^2)*r^2) - 
                  (30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^5 + (15*((6.*r^2)/E^(4.*r^2) + 
                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
                  (5*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^3 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^2)*(1 + 3*Cos[2*theta])))*(-2 + 9.*^-12*
               (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*(1 + 
                3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               Sin[theta]^2 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*
                 (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
               Sin[2*theta]^2) + 6.*^-6*(18*(1.5/(E^(4.*r^2)*r) - 
                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2))/r^3)^2 + 3*r*(-7.5/(E^(4.*r^2)*r^2) + 
                (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^3)*(-3./(E^(4.*r^2)*r) + 
                (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^2) - 6*(1.5/(E^(4.*r^2)*r) - 
                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2))/r^3)*(-3./(E^(4.*r^2)*r) + 
                (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^2 + r*(15./(E^(4.*r^2)*r^2) - 
                  (30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^5 + (15*((6.*r^2)/E^(4.*r^2) + 
                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
                  (5*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^3 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^2)))*Sin[2*theta]^2*(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
              1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               Sin[theta]^2 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*
                 (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
               Sin[2*theta]^2)))/(r^2*(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
             1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
               (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
               (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                    E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                    16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                  E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
             3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
              (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                 (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
             4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
              Sin[2*theta]^2)^2) - 
         (-2*(9.*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
              Cos[theta]^2*Sin[theta]^2 - (1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2))/r^3) + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                 (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*Sin[theta]^2)*(1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
            (r*(2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 3.*^-6*r*
                (-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                 (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*
                (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
                 (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)*
              (-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
              (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
              (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
               (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
               ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
              Sin[2*theta]^2) + r*(9.*^-12*(-3./(E^(4.*r^2)*r) + 
                (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^2)^2*Cos[theta]^2*Sin[theta]^2 - 
             (1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 7.5*^-7*
                (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*Sin[theta]^2)*(1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
            (3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
               (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
               ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
              (-2 + 3*Sin[theta]^2)*(2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) - 
                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2))/r^3) - 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
                 (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^5 - (6*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*
                (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
                 (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2) + 
             (2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 3.*^-6*r*
                (-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                 (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*
                (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
                 (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)*
              (-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                (-2 + 3*Sin[theta]^2)) + 1.*^-6*r*(-9*(-7.5/(E^(4.*r^2)*
                   r^2) + (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^5 - (6*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 3*r*
                (45./(E^(4.*r^2)*r^3) - (90*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^6 + 
                 (39*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^5 - 
                 (9*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r^3) + (9*(-52.5/(E^(4.*r^2)*r^2) + (105*((2.*r^3)/
                      E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                  (48*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                      E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
                     (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
                      E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                     0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                  (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                     (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                     4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                        E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
                    (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                         2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
                     E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
                      2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                    12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                     r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                    6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                       E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                    4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
                       E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                      (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
                      (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
                     E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                      8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                    (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                     E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                        r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                      (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)/4 + 
               (3*r*(315./(E^(4.*r^2)*r^3) - (630*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^6 + 
                  (297*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                      E^(4.*r^2)))/r^5 - (87*((12.*r)/E^(4.*r^2) + 
                     (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
                      E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                     0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                  (19*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                     (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                     4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                        E^(4.*r^2))))/r^3 - (4*((24.*(0. - 8.*r))/
                      E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 24.*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                     6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                     (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                       (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                         (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                     18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                     0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                        E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                        E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                     6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                        E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                     4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
                        E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                       (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
                      E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                        E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                       8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                     (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
                        E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                       (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                       ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))))/r^2 + 
                  (0. - 672./E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                       E^(4.*r^2)) + ((12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/
                     E^(4.*r^2) + ((0. + 12.*(0. - 8.*r) - 288.*r)*(0. - 
                       8.*r))/E^(4.*r^2) + (2*(12.*(0. - 8.*r) - 96.*r)*
                      (0. - 8.*r))/E^(4.*r^2) + (24.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + 12*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
                      2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r))*r + 48.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*r + 48.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r + (6912.*r^2)/
                     E^(4.*r^2) + 6.*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                    3*(-16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*(0. - 8.*r))*r^2 + 12.*
                     (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 4.*(0. - 
                      8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                      (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*r^4*(-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)) - 16.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*
                        r)/E^(4.*r^2)) + 3*r^2*(256./E^(4.*r^2) - 
                      16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                      2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*(0. - 8.*r) + (256.*(0. - 8.*r)*r)/
                       E^(4.*r^2)) + 24.*r*((-16.*(0. - 8.*r))/E^(4.*r^2) + 
                      (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                    24.*r^2*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
                       E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                      (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + (-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(12.*(0. - 8.*r)*r - 
                      96.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. + 12.*(0. - 8.*r)*r - 96.*r^2) + 12.*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 192.*r^2*
                     (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 6.*r^2*
                     (192./E^(4.*r^2) - (8.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (256.*(0. - 8.*r)*r)/E^(4.*r^2) - (512.*r^2)/
                       E^(4.*r^2) + (64.*(0. - 8.*r)^2*r^2)/E^(4.*r^2)) + 
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 - 16.*r^3) + 
                    (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                     (6.*(0. - 8.*r)*r^2 - 16.*r^3) + (128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*(6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                      2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^3) - 8.*(12./E^(4.*r^2) + 
                      (36.*(0. - 8.*r)*r)/E^(4.*r^2) - (96.*r^2)/E^(4.*r^2) + 
                      6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                      2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^3 - (96.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + 4.*r^3*(0. + (384.*(0. - 8.*r))/
                       E^(4.*r^2) - (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/
                       E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                      (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 24.*(0. - 8.*r)*
                       (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + 
                    24.*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                        (64.*r^2)/E^(4.*r^2))) + ((0. - 8.*r)*((0. - 8.*r)*
                        (0. + 12.*(0. - 8.*r)*r - 96.*r^2) - 8.*
                        (6.*(0. - 8.*r)*r^2 - 16.*r^3)))/E^(4.*r^2) - 
                    8.*((0. + 12.*(0. - 8.*r)*r - 96.*r^2)/E^(4.*r^2) + 
                      ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                       E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                      (0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)) - 8.*(6.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + ((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 
                        2.*r^3)) + 6.*r^2*(128./E^(4.*r^2) - (1024.*r^2)/
                       E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*
                         (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))) + 
                    ((0. - 8.*r)*((0. - 8.*r)*(12.*(0. - 8.*r)*r - 96.*r^2) - 
                       8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3))))/
                     E^(4.*r^2) - 8.*((12.*(0. - 8.*r)*r - 96.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                         8.*(0. + 2.*r^3)))/E^(4.*r^2)) - 
                    8.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                      (192.*r^2)/E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 6.*r^2*
                       (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                       (0. + 2.*r^3) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                         E^(4.*r^2))))/r)*Sin[theta]^2)/4)*(-1 + 3.*^-6*
                (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*
              (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
              (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
               (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
               ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
              Sin[2*theta]^2 + 1.3499999999999999*^-11*r*
              (-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
               (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
               ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
              (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
               (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
               ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
              Sin[2*theta]^2 + 1.3499999999999999*^-11*r*
              (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
              (15./(E^(4.*r^2)*r^2) - (30*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 + 
               (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
               (5*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
               (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                 (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                    E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                   (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                   (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
                   (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                    16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                  E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                     (0. + 2.*r^3))/E^(4.*r^2)))/r^2)*Sin[2*theta]^2) - 
           r*(r*(2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 3.*^-6*r*
                (-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                 (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*
                (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
                 (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)*
              (-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                (-2 + 3*Sin[theta]^2)) + 1.3499999999999999*^-11*r*
              (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
              (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
               (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
               ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
              Sin[2*theta]^2)*(3.*^-6*(-7.5/(E^(4.*r^2)*r^2) + 
               (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                   r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)*
              (1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 7.5*^-7*
                (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*Sin[theta]^2) + 1.*^-6*(3*(-7.5/(E^(4.*r^2)*r^2) + 
                 (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^5 - (6*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 
               (3*(-52.5/(E^(4.*r^2)*r^2) + (105*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                  (48*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                      E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
                     (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
                      E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                     0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                  (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                     (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                     4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                        E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
                    (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                         2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
                     E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
                      2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                    12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                     r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                    6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                       E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                    4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
                       E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                      (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
                      (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
                     E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                      8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                    (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                     E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                        r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                      (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)/4)*
              (1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                (2 - 3*Sin[theta]^2)) + 4.5*^-12*(-3./(E^(4.*r^2)*r) + 
               (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                   r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)*(15./(E^(4.*r^2)*r^2) - 
               (30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^5 + (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2)))/r^4 - (5*((12.*r)/E^(4.*r^2) + 
                  (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) + 
                 (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                  (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                     r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                    8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
              Sin[2*theta]^2))/(2*r^3*(-9.*^-12*(-3./(E^(4.*r^2)*r) + 
                (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^2)^2*Cos[theta]^2*Sin[theta]^2 + 
             (1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 7.5*^-7*
                (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*Sin[theta]^2)*(1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))^2)) - 
       3.*^-6*r*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
            (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
         (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
            0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
            ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
         ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
           (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
              E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
           0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
            r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
           ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*Cos[theta]*
        Sin[theta]*((1.5*^-12*r*((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                 r^4)/E^(4.*r^2)))/r^5 + (6*((6.*r^2)/E^(4.*r^2) + 
               (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                 (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                 r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
               (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                  E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
               (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*
                r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                 E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
              2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^
                3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
                (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                 16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
              8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
              ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^
                (4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                  (0. + 2.*r^3))/E^(4.*r^2)))/r^2)*Cos[theta]*Sin[theta]*
           (-9.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
             ((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*Cos[theta]^2*
             Sin[theta]^2 - (3*((3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                    r^4)/E^(4.*r^2)))/r^5 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])*
              (-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 7.5*^-7*
                (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*Sin[theta]^2))/2))/(2 - 9.*^-12*
            (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                   r^4)/E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
                (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                 E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) + 
           1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
             (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
             (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
             (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
               (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                  E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                 (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
                 (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*
                (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
                 (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                  16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 8.*
                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
               ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
           3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
             ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
               ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
            (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
               (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                  (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                 (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                  (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                     r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                    8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
              (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
            (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                   r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                 (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                 E^(4.*r^2))/r^2)^2*Sin[2*theta]^2) - 
         (2.2500000000000003*^-12*r*((3*((2.*r^3)/E^(4.*r^2) + 
               (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
            (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
               ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
            ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
              (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                 E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
              0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
               r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                (0. + 2.*r^3))/E^(4.*r^2))/r^3)*Cos[theta]*
           (1 + 3*Cos[2*theta])*Sin[theta]*
           (((-6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                5 + (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^4 - (3*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^2)*
             (1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 
              7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               Sin[theta]^2) + 1.*^-6*(-3./(E^(4.*r^2)*r) + 
              (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                 E^(4.*r^2))/r^2)*(3*((3*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 
              (3*((21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^5 - (21*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^4 + (9*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (2*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2)/4)))/
          (2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
            (1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
             (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
              r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                 E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
             (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
             (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
               (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                  E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                 (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
                 (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*
                (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                 (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
                 (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                  16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                  E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 8.*
                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
               ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                   (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
           3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
             ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
               ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
            (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
               (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                  (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                 (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                  (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                     r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                    8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
              (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
            (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                   r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                 (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                   (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                 E^(4.*r^2))/r^2)^2*Sin[2*theta]^2) + 
         (1.5*^-6*Cos[theta]*Sin[theta]*(-0.000018*(1.5/(E^(4.*r^2)*r) - 
               (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/
                r^3)^2 + 6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (1 + 1.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2) + 
              7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               Sin[theta]^2) + (-3./(E^(4.*r^2)*r) + 
              (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                 E^(4.*r^2))/r^2)*(-2 + 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
                (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^3) - 1.5*^-6*(10.5/(E^(4.*r^2)*
                  r) - (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                    E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                      2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               Sin[theta]^2 - 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
                (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                    E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                      2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                 r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                  24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                    (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                  18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                  0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
                   ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                     96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. - 
                       8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                  8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
                  6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                      (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
                  8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^
                2))*(r*(2 - 6.*^-6*(1.5/(E^(4.*r^2)*r) - 
                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2))/r^3) - 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
                (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*(10.5/(E^(4.*r^2)*
                  r) - (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                    E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                      2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
                (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                    E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                      2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                 r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                  24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                    (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                  18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                  0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
                   ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                     96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. - 
                       8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                  8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
                  6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                      (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
                  8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^
                2)*(-1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2))/r^3)*(-2 + 3*Sin[theta]^2)) + 
            1.3499999999999999*^-11*r*(1.5/(E^(4.*r^2)*r) - 
              (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
             Sin[2*theta]^2))/(r^2*(9.*^-12*(-3./(E^(4.*r^2)*r) + 
               (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                   r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)^2*Cos[theta]^2*Sin[theta]^2 - 
            (1 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 
              7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               Sin[theta]^2)*(1 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2))/r^3)*(2 - 3*Sin[theta]^2)))*
           (2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) + 
         (7.5*^-7*(4*r*(15./(E^(4.*r^2)*r^2) - (30*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 + 
              (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
              (5*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                 (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                 ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
              (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/
                   E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                  (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + 
                  (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                  (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + 
                  (64.*r^2)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                 E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                    (0. + 2.*r^3))/E^(4.*r^2)))/r^2) - 
            0.000018*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - (-3./(E^(4.*r^2)*r) + 
              (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                  r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                   E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                 E^(4.*r^2))/r^2)*(-4 + 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
                (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])) + 
            6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-2 + 1.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(1 + 
                3*Cos[2*theta]) + 1.*^-6*r*(15./(E^(4.*r^2)*r^2) - 
                (30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 + (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 - (5*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                 r^2)*(1 + 3*Cos[2*theta])))*
           (1.8*^-11*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2 + 
            (1 + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               Sin[theta]^2)*(2 - 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
                (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^3) + 1.5*^-6*(10.5/(E^(4.*r^2)*
                  r) - (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                    E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                      2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
                (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                    E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                      2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                 r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                  24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                    (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                  18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                  0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
                   ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                     96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. - 
                       8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                  8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
                  6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                      (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
                  8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^
                2) - 3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (4 - 3.*^-6*r*(-7.5/(E^(4.*r^2)*r^2) + 
                (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^3) + 6.*^-6*(-3./(E^(4.*r^2)*r) + 
                (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^2)*Cos[2*theta] + 
              3.*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               Sin[theta]^2 + 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
                (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                    E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
                   (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                      2.*r^3))/E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                 r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                  24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                  6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                  (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                    (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                  18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                  16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                  0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                    (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 6.*r^2*
                   ((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/E^(4.*r^2) - 
                    (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 4.*r^3*
                   (192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                    (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                     E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                     96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*(0. - 
                       8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                   (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                  (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                   (0. + 2.*r^3) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                    (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                  8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3) + 
                  6.*r^2*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                      (64.*r^2)/E^(4.*r^2))) - (8.*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) + ((0. - 8.*r)^2*
                    (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) - 
                  8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^
                2) + 6.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
              (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
              ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                   E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                   E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
             (Cos[2*theta] - 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               Sin[theta]^4))*Sin[2*theta])/
          (r*(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
            6.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (1 - 3*Sin[theta]^2 + 3.75*^-7*(10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)*
           (-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) - 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 - 
            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               (1 + 3*Cos[2*theta])*Sin[theta]^2) + 4.5*^-12*
             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)) - 
         (3.*^-6*Cos[theta]*Sin[theta]*
           (((4.5*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                 ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                (-52.5/(E^(4.*r^2)*r^2) + (105*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                 (48*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                 (13*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 3*
                (-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                 (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                (2 - 0.000012*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                   ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 
                 3.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                   (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                       E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                     (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
                      E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                     0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2) + 
                 1.*^-6*r*(15./(E^(4.*r^2)*r^2) - (30*((2.*r^3)/E^(4.*r^2) + 
                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 + 
                   (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                       E^(4.*r^2)))/r^4 - (5*((12.*r)/E^(4.*r^2) + 
                      (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                       E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                       E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                       E^(4.*r^2)))/r^3 + (0. + 12./E^(4.*r^2) + 
                     (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
                      r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                    r^2) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
                   (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                       E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
                      (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                        (0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                   (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                      (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                   (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                     (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                     4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                    r)*Sin[theta]^2) + (15./(E^(4.*r^2)*r^2) - 
                 (30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^5 + (15*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^4 - (5*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r^2)*(-2 + 6.*^-6*(1.5/(E^(4.*r^2)*r) - 
                   (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                       E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                       (0. + 2.*r^3))/E^(4.*r^2))/r^3) - 1.5*^-6*
                  (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                   (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                       E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                      (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                       E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                       E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                       E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                     (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
                      r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                    r)*Sin[theta]^2 - 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
                   (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                       E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
                      (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                        (0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                   (13*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                      (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                   (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                      (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                        (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                         16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                      8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                         E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                         E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                         E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
                     (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + 
                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*
                       r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
                       2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                        (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                      (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                     16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                       (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                        E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                      r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                        E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                        E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                     6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                        E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                     4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
                        E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                       (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
                       (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                     ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
                      E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                        E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                       8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                     (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
                        E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                       (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                       ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
                  Sin[theta]^2) + 1.*^-6*(-3./(E^(4.*r^2)*r) + 
                 (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                  r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                     E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                     E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
                ((-9*(-52.5/(E^(4.*r^2)*r^2) + (105*((2.*r^3)/E^(4.*r^2) + 
                       (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                    (48*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                        E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                        E^(4.*r^2)))/r^4 + (13*((12.*r)/E^(4.*r^2) + 
                       (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
                        E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                        E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                         (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                        E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                        E^(4.*r^2)))/r^3 - (3*(0. + 12./E^(4.*r^2) + 
                       (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/
                        E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                         (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./
                          E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*
                        (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                       ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                        E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                       8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                          E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                          8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                          E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                          E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
                      (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + 
                        (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*
                        r)/E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/
                         E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r))*r^2 + 18.*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/
                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 
                        8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                        (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                         E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                         E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                       r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                         E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                         E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                      6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                         E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                      4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
                         E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                        (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
                        (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                      ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
                       E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                         E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                       E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                         16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                      8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                         E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                        8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                      (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                       E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                         8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
                         E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                        (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/
                         E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                         E^(4.*r^2)))/r)*Sin[theta]^2)/4 + 
                 r*(3*(45./(E^(4.*r^2)*r^3) - (90*((2.*r^3)/E^(4.*r^2) + 
                        (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^6 + 
                     (39*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                         E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                         E^(4.*r^2)))/r^5 - (9*((12.*r)/E^(4.*r^2) + 
                        (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
                         E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                         E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                         E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                         E^(4.*r^2)))/r^4 + (0. + 12./E^(4.*r^2) + 
                       (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/
                        E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                         (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 4.*
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./
                          E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                         (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 6.*r^2*
                        (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                       ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                        E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                       8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                          E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                          8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                          E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                          E^(4.*r^2)))/r^3) - (3*(315./(E^(4.*r^2)*r^3) - 
                      (630*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                          E^(4.*r^2)))/r^6 + (297*((6.*r^2)/E^(4.*r^2) + 
                         (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                         ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^5 - 
                      (87*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                          E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                         (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                         ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                      (19*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                          E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                         3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
                          r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 2.*(-8./
                          E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                          r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                         6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                         ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                          E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                         8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                          E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                          8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                          E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                          E^(4.*r^2))))/r^3 - (4*((24.*(0. - 8.*r))/
                          E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 24.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                         6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
                          r + (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                          (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                         18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                          2/E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^3 + 2.*(128./E^(4.*r^2) - 8.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                          (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                          E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                          r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                          E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                          E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                         6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                          E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                         4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
                          E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                          (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
                          (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                         ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
                          E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                          E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                          E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                          16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
                         ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                         8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                          E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                          8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                         (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                          E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                          8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((12.*r)/
                          E^(4.*r^2) + (6.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                          (48.*r^3)/E^(4.*r^2) - (8.*(0. + 2.*r^3))/
                          E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                          E^(4.*r^2))))/r^2 + (0. - 672./E^(4.*r^2) + 
                        24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                        6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2)) + 
                        ((12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/E^(4.*r^2) + 
                        ((0. + 12.*(0. - 8.*r) - 288.*r)*(0. - 8.*r))/
                         E^(4.*r^2) + (2*(12.*(0. - 8.*r) - 96.*r)*(0. - 
                          8.*r))/E^(4.*r^2) + (24.*(0. - 8.*r)^2)/
                         E^(4.*r^2) + 12*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
                          2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r))*r + 48.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r + 
                        48.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (0. - 8.*r)*r + (6912.*r^2)/E^(4.*r^2) + 
                        6.*(-8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r))*r^2 + 3*(-16.*
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r))*r^2 + 12.*(128./
                          E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*r^2 + 4.*(0. - 
                          8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2)) + (640.*(0. - 8.*r))/E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r) - (56.*(0. - 8.*r)^3)/E^(4.*r^2) + 
                          (0. - 8.*r)^5/E^(4.*r^2))*r^3 + 2.*(128./
                          E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*r^3 + 
                        0.5*r^4*(-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)) - 16.*(12./E^(4.*r^2) + (12.*(0. - 
                          8.*r)*r)/E^(4.*r^2)) + 3*r^2*(256./E^(4.*r^2) - 
                          16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) + 
                          2.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(0. - 8.*r) + (256.*(0. - 8.*r)*r)/
                          E^(4.*r^2)) + 24.*r*((-16.*(0. - 8.*r))/
                          E^(4.*r^2) + (64.*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^2*
                          r)/E^(4.*r^2)) + 24.*r^2*(192./E^(4.*r^2) - 
                          (24.*(0. - 8.*r)^2)/E^(4.*r^2) + (192.*(0. - 8.*r)*
                          r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + 
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                         (12.*(0. - 8.*r)*r - 96.*r^2) + (-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*(0. + 12.*(0. - 8.*r)*r - 
                          96.*r^2) + 12.*(-8./E^(4.*r^2) + (64.*r^2)/
                          E^(4.*r^2)) - 192.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                          E^(4.*r^2)) + 6.*r^2*(192./E^(4.*r^2) - 
                          (8.*(0. - 8.*r)^2)/E^(4.*r^2) + (256.*(0. - 8.*r)*
                          r)/E^(4.*r^2) - (512.*r^2)/E^(4.*r^2) + 
                          (64.*(0. - 8.*r)^2*r^2)/E^(4.*r^2)) + 
                        ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                          E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 - 16.*r^3) + 
                        (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 
                          8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3) + 
                        (128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                          (0. - 8.*r)^4/E^(4.*r^2))*(0. - 8.*r)*(0. + 
                          2.*r^3) - 8.*(6.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*r^2 + 2.*((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3) - 
                        8.*(12./E^(4.*r^2) + (36.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                          (96.*r^2)/E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 2.*((-24.*(0. - 
                          8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 - 
                          (96.*(0. - 8.*r)*r^3)/E^(4.*r^2)) + 4.*r^3*
                         (0. + (384.*(0. - 8.*r))/E^(4.*r^2) - 
                          (8.*(0. - 8.*r)^3)/E^(4.*r^2) - (3072.*r)/
                          E^(4.*r^2) + (384.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 
                          (64.*(0. - 8.*r)^3*r^2)/E^(4.*r^2) - 24.*(0. - 
                          8.*r)*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) + 
                        24.*r*((128.*r)/E^(4.*r^2) - 8.*r*(-8./E^(4.*r^2) + 
                          (64.*r^2)/E^(4.*r^2))) + ((0. - 8.*r)*((0. - 8.*r)*
                          (0. + 12.*(0. - 8.*r)*r - 96.*r^2) - 8.*
                          (6.*(0. - 8.*r)*r^2 - 16.*r^3)))/E^(4.*r^2) - 
                        8.*((0. + 12.*(0. - 8.*r)*r - 96.*r^2)/E^(4.*r^2) + 
                          ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                          E^(4.*r^2)) + ((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                          (0. - 8.*r)^3/E^(4.*r^2))*(6.*(0. - 8.*r)*r^2 - 
                          8.*(0. + 2.*r^3)) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                          E^(4.*r^2))*(0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                          8.*(0. + 2.*r^3)) - 8.*(6.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r^2 + ((-24.*(0. - 8.*r))/
                          E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. + 
                          2.*r^3)) + 6.*r^2*(128./E^(4.*r^2) - (1024.*r^2)/
                          E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (64.*r^2)/
                          E^(4.*r^2)) - 8.*r*((128.*r)/E^(4.*r^2) - 8.*r*
                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)))) + 
                        ((0. - 8.*r)*((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                          96.*r^2) - 8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 
                          2.*r^3))))/E^(4.*r^2) - 8.*((12.*(0. - 8.*r)*r - 
                          96.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*(6.*(0. - 8.*r)*
                          r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2)) - 
                        8.*(12./E^(4.*r^2) + (12.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                          (192.*r^2)/E^(4.*r^2) + 6.*(-8./E^(4.*r^2) + 
                          (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 6.*r^2*
                          (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                          (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                          (0. - 8.*r)*(0. + 2.*r^3) + ((0. - 8.*r)*
                          (6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                          E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + ((0. - 8.*r)*
                          (0. + 2.*r^3))/E^(4.*r^2))))/r)*Sin[theta]^2)/4)))*
              (-4 + 1.8*^-11*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
                (1 + 3*Cos[2*theta]) - 3.*^-6*(10.5/(E^(4.*r^2)*r) - 
                 (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*Sin[theta]^2 + 1.5*^-6*(1.5/(E^(4.*r^2)*r) - 
                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2))/r^3)*(4 - 12*Cos[2*theta] - 3.*^-6*
                  (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                   (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                       E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                      (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/
                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                       E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                       E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/
                       E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                     (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                     12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                     3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*
                      r^2 + 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                    r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 9.*^-12*
                (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                  (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
                Sin[2*theta]^2))/2 + 1.*^-6*(-0.000018*(1.5/(E^(4.*r^2)*r) - 
                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2))/r^3)^2 + 6*(1.5/(E^(4.*r^2)*r) - 
                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2))/r^3)*(1 + 1.*^-6*(-3./(E^(4.*r^2)*r) + 
                  (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2) + 
                7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r)*Sin[theta]^2) + (-3./(E^(4.*r^2)*r) + 
                (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^2)*(-2 + 3.*^-6*r*
                 (-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                  (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) - 
                1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r)*Sin[theta]^2 - 7.5*^-7*r*(-52.5/(E^(4.*r^2)*r^2) + 
                  (105*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^5 - (48*((6.*r^2)/E^(4.*r^2) + 
                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                  (13*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                      E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
                      (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                     (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                      ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                     ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                  (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                     (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                     4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/
                        E^(4.*r^2))))/r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - 
                    (672.*r)/E^(4.*r^2) + 24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r + 6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                         2)/E^(4.*r^2))*r + (24.*(0. - 8.*r)^2*r)/
                     E^(4.*r^2) + 3*(0. - (32.*(0. - 8.*r))/E^(4.*r^2) + 
                      2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                       (0. - 8.*r))*r^2 + 18.*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^2 + 
                    12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                     (0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                    16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                      (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                       E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                     r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                        (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                       E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                       E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                    6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                       E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                    4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/
                       E^(4.*r^2) + (192.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                      (8.*(0. - 8.*r)^3*r)/E^(4.*r^2)) + ((0. - 8.*r)*
                      (12.*(0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 
                    ((0. - 8.*r)*(0. + 12.*(0. - 8.*r)*r - 96.*r^2))/
                     E^(4.*r^2) + 12.*r*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) - (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                     E^(4.*r^2) + ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*(0. + 2.*r^3) + 
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                         E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                      8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                    (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                     E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                        r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                      (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                        (0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2))*
             ((3*(-52.5/(E^(4.*r^2)*r^2) + (105*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                 (48*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                 (13*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                 (3*(0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                    (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                      (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))))/
                  r^2 + ((24.*(0. - 8.*r))/E^(4.*r^2) - (672.*r)/E^(4.*r^2) + 
                   24.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r + 
                   6*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r + 
                   (24.*(0. - 8.*r)^2*r)/E^(4.*r^2) + 3*(0. - 
                     (32.*(0. - 8.*r))/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r))*r^2 + 
                   18.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^2 + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^2 + (1536.*r^3)/E^(4.*r^2) - 
                   16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   2.*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (0. - 8.*r)^4/E^(4.*r^2))*r^3 + 2.*((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    r^3 + 0.5*(0. - 8.*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2)) + (640.*(0. - 8.*r))/
                      E^(4.*r^2) - 16.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r) - (56.*(0. - 8.*r)^3)/
                      E^(4.*r^2) + (0. - 8.*r)^5/E^(4.*r^2))*r^4 + 
                   6.*r^2*((-16.*(0. - 8.*r))/E^(4.*r^2) + (64.*r)/
                      E^(4.*r^2) - (8.*(0. - 8.*r)^2*r)/E^(4.*r^2)) + 
                   4.*r^3*(192./E^(4.*r^2) - (24.*(0. - 8.*r)^2)/E^(4.*r^2) + 
                     (192.*(0. - 8.*r)*r)/E^(4.*r^2) - (8.*(0. - 8.*r)^3*r)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(12.*(0. - 8.*r)*r - 
                      96.*r^2))/E^(4.*r^2) + ((0. - 8.*r)*(0. + 12.*
                       (0. - 8.*r)*r - 96.*r^2))/E^(4.*r^2) + 12.*r*
                    (-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/
                    E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. + 2.*r^3) + ((-24.*(0. - 8.*r))/
                      E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*(0. - 8.*r)*
                    (0. + 2.*r^3) - 8.*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*r^3) + 6.*r^2*((128.*r)/E^(4.*r^2) - 
                     8.*r*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2))) - 
                   (8.*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(6.*(0. - 8.*r)*r^2 - 8.*(0. + 2.*r^3)))/
                    E^(4.*r^2) - 8.*((12.*r)/E^(4.*r^2) + (6.*(0. - 8.*r)*
                       r^2)/E^(4.*r^2) - (48.*r^3)/E^(4.*r^2) - 
                     (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r)*(2 + 3.*^-6*
                  (1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                      (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                   ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                  (1 + 3*Cos[2*theta]))*Sin[theta]^2)/4 + 
              3*(-7.5/(E^(4.*r^2)*r^2) + (15*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 - 
                (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(-1 + 
                3*Cos[2*theta] - 6.*^-6*(1.5/(E^(4.*r^2)*r) - 
                  (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^4 + ((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta]) + 
                7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
              9.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*(
                15./(E^(4.*r^2)*r^2) - (30*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^5 + 
                (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^4 - 
                (5*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                 r^2)*Sin[2*theta]^2)))/
          (2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
             (1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
              (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^
                4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                  E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                  E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*
                 r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*
                 (0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                  8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                  (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                 r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                 (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                    r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                   8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
            3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                 (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
              ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
             (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               (1 + 3*Cos[2*theta])*Sin[theta]^2) - 4.5*^-12*
             (-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*
                    r^4)/E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                  (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                    (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                 (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                 (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                    E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                 (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                    2.*r^3))/E^(4.*r^2))/r^2)^2*Sin[2*theta]^2)^2 + 
         (3.*^-6*Sin[2*theta]*((3*r*(-7.5/(E^(4.*r^2)*r^2) + 
                (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^3)*(1 + ((10.5/(E^(4.*r^2)*r) - 
                   (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                       E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
                      (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                        (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                        (0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                   (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/
                       E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 2.*
                       (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                      (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                       ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                         E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                      ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                   (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                     (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                       (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                     4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                        E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                        E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                       8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                       (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                        E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                     8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                        E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                        8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                        E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                    r)*(1.*^-6 - 3.*^-6*Cos[2*theta]))/4) + 
              6.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*Cos[
                2*theta] + 6.*^-6*r*(-3./(E^(4.*r^2)*r) + 
                (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^2)*(15./(E^(4.*r^2)*r^2) - 
                (30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 + (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 - (5*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                 r^2)*Cos[2*theta] - 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2))/r^3)*(3*r*(-7.5/(E^(4.*r^2)*r^2) + 
                  (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^5 - (6*((6.*r^2)/E^(4.*r^2) + 
                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3) + 
                6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                  (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
                 Cos[2*theta]))*(-2 + 9.*^-12*(1.5/(E^(4.*r^2)*r) - 
                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2))/r^3)^2*(1 + 3*Cos[2*theta]) - 
              1.5*^-6*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*
               Sin[theta]^2 - 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2))/r^3)*(-1 + 3*Cos[2*theta] + 7.5*^-7*
                 (10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) + 
              4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
               Sin[2*theta]^2) + 1.*^-6*(9.*^-6*(1.5/(E^(4.*r^2)*r) - 
                 (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                  r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2))/r^3)^2 + (10.5/(E^(4.*r^2)*r) - 
                (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)/
               4 - 3.*^-6*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                    (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                 (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                    0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                    ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                 ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                   (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                   0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*Cos[
                2*theta] + 3*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*(-1 + 
                2.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r)*(-1 + 3*Cos[2*theta])))*(-3*r*(-7.5/(E^(4.*r^2)*r^2) + 
                (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 - (6*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^3)*(1 + 3*Cos[2*theta])*(1 + 
                7.5*^-7*(10.5/(E^(4.*r^2)*r) - (21*((2.*r^3)/E^(4.*r^2) + 
                     (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                  (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                     0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                     ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 - 
                  (2*((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                     (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^
                         2/E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/
                      E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + 
                       (0. - 8.*r)^3/E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/
                      E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r^2 + (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/
                     E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 12.*
                     (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                    3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                    4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                      8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                      (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                       E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                    8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                       E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                       8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                       E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                   r)*Sin[theta]^2) + 9.*^-6*(-3./(E^(4.*r^2)*r) + 
                 (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                  r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                     E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                     E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
               Sin[2*theta]^2 + 9.*^-6*r*(-3./(E^(4.*r^2)*r) + 
                (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 - (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^3 + ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*
                    r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2))/r^2)*(15./(E^(4.*r^2)*r^2) - 
                (30*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^5 + (15*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                    E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                    E^(4.*r^2)))/r^4 - (5*((12.*r)/E^(4.*r^2) + 
                   (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                   2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                   (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                    ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                   ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                  (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^
                       2)/E^(4.*r^2))*r^2 + 4.*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^3 + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   r^3 + 0.5*(128./E^(4.*r^2) - 8.*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2)) - (40.*(0. - 8.*r)^2)/
                     E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*r^4 + 
                  6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                  ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                  (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                   (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                      r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                     8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                     E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                 r^2)*Sin[2*theta]^2 + 3.*^-6*(1.5/(E^(4.*r^2)*r) - 
                (3*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                 r^4 + ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2))/r^3)*(3*r*(-7.5/(E^(4.*r^2)*r^2) + 
                  (15*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^5 - (6*((6.*r^2)/E^(4.*r^2) + 
                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r^4 + 
                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
                 (1 + 3*Cos[2*theta]) - 9*(-3./(E^(4.*r^2)*r) + 
                  (6*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                      E^(4.*r^2)))/r^4 - (3*((6.*r^2)/E^(4.*r^2) + 
                     (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                       (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*
                       (0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                  ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                    (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                       E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                    0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)*
                 Sin[2*theta]^2))))/
          (r*(2 - 9.*^-12*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
                ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                  0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                  ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)^2*
              (1 + 3*Cos[2*theta]) + 1.5*^-6*(10.5/(E^(4.*r^2)*r) - 
               (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/
                r^4 + (9*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                   E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 2.*r^3))/
                   E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                  (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                  2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                  (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*((-24.*(0. - 8.*r))/
                     E^(4.*r^2) + (0. - 8.*r)^3/E^(4.*r^2))*r^4 - 
                  (8.*(0. + 2.*r^3))/E^(4.*r^2) + ((0. - 8.*r)^2*(0. + 
                     2.*r^3))/E^(4.*r^2)))/r^2 + (0. + 12./E^(4.*r^2) + 
                 (24.*(0. - 8.*r)*r)/E^(4.*r^2) - (192.*r^2)/E^(4.*r^2) + 
                 12.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 
                 3*(-16./E^(4.*r^2) + (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                 4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                    E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                    E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                   8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                   (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/E^(4.*r^2))*
                  r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/E^(4.*r^2)) + 
                 ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 16.*r^3))/E^(4.*r^2) + 
                 (-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*(0. - 8.*r)*
                  (0. + 2.*r^3) - 8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*
                     r^3)/E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                    8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/E^(4.*r^2) + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r)*Sin[theta]^2 + 
             3.*^-6*(1.5/(E^(4.*r^2)*r) - (3*((2.*r^3)/E^(4.*r^2) + 
                  (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 + 
               ((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                 0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                 ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2))/r^3)*
              (-1 + 3*Cos[2*theta] + 7.5*^-7*(10.5/(E^(4.*r^2)*r) - 
                 (21*((2.*r^3)/E^(4.*r^2) + (0.5*(0. - 8.*r)*r^4)/
                     E^(4.*r^2)))/r^4 + (9*((6.*r^2)/E^(4.*r^2) + 
                    (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 0.5*(-8./E^(4.*r^2) + 
                      (0. - 8.*r)^2/E^(4.*r^2))*r^4 + ((0. - 8.*r)*(0. + 
                       2.*r^3))/E^(4.*r^2)))/r^3 - (2*((12.*r)/E^(4.*r^2) + 
                    (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - (64.*r^3)/E^(4.*r^2) + 
                    2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^3 + 
                    (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 0.5*
                     ((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                       E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                    ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2)))/r^2 + 
                 (0. + 12./E^(4.*r^2) + (24.*(0. - 8.*r)*r)/E^(4.*r^2) - 
                   (192.*r^2)/E^(4.*r^2) + 12.*(-8./E^(4.*r^2) + 
                     (0. - 8.*r)^2/E^(4.*r^2))*r^2 + 3*(-16./E^(4.*r^2) + 
                     (2.*(0. - 8.*r)^2)/E^(4.*r^2))*r^2 + 
                   4.*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                      E^(4.*r^2))*r^3 + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*r^3 + 0.5*(128./E^(4.*r^2) - 
                     8.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2)) - 
                     (40.*(0. - 8.*r)^2)/E^(4.*r^2) + (0. - 8.*r)^4/
                      E^(4.*r^2))*r^4 + 6.*r^2*(-8./E^(4.*r^2) + (64.*r^2)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      16.*r^3))/E^(4.*r^2) + (-8./E^(4.*r^2) + (0. - 8.*r)^2/
                      E^(4.*r^2))*(0. - 8.*r)*(0. + 2.*r^3) - 
                   8.*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/
                      E^(4.*r^2)) + ((0. - 8.*r)*(6.*(0. - 8.*r)*r^2 - 
                      8.*(0. + 2.*r^3)))/E^(4.*r^2) - 8.*((6.*r^2)/
                      E^(4.*r^2) + ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/
                  r)*(1 + 3*Cos[2*theta])*Sin[theta]^2) - 
             4.5*^-12*(-3./(E^(4.*r^2)*r) + (6*((2.*r^3)/E^(4.*r^2) + 
                   (0.5*(0. - 8.*r)*r^4)/E^(4.*r^2)))/r^4 - 
                (3*((6.*r^2)/E^(4.*r^2) + (2.*(0. - 8.*r)*r^3)/E^(4.*r^2) + 
                   0.5*(-8./E^(4.*r^2) + (0. - 8.*r)^2/E^(4.*r^2))*r^4 + 
                   ((0. - 8.*r)*(0. + 2.*r^3))/E^(4.*r^2)))/r^3 + 
                ((12.*r)/E^(4.*r^2) + (12.*(0. - 8.*r)*r^2)/E^(4.*r^2) - 
                  (64.*r^3)/E^(4.*r^2) + 2.*(-8./E^(4.*r^2) + (0. - 8.*r)^2/
                     E^(4.*r^2))*r^3 + (2.*(0. - 8.*r)^2*r^3)/E^(4.*r^2) + 
                  0.5*((-24.*(0. - 8.*r))/E^(4.*r^2) + (0. - 8.*r)^3/
                     E^(4.*r^2))*r^4 - (8.*(0. + 2.*r^3))/E^(4.*r^2) + 
                  ((0. - 8.*r)^2*(0. + 2.*r^3))/E^(4.*r^2))/r^2)^2*
              Sin[2*theta]^2)^2)))/(2*Sqrt[2]*r))/(Sqrt[2]*r))/2
